Aha, kapiram sta ti treba. Pa mozes da radis i sa obicnim array-om, evo ovako nesto:
Code:
type
TButtonTabela: array[1..10, 1..10] of TButton;
var
Tabela: TButtonTabela;
i, j: Integer;
begin
for i := 1 to 10 do begin
for j := 1 to 10 do begin
Tabela[i, j] := TButton.Create(nil);
Tabela[i, j].Parent := self; // ili neka druga kontrola, recimo neki Panel
// Tabela[i, j].SetBounds(....) // ovde dodje neki kod za pozicioniranje dugmeta
end;
end;
end;
A u nekom OnClick handler-u, mozes glatko da proveris koji je button u pitanju prostim uslovom:
Code:
procedure TForm1.Button1Click(Sender: TObject);
if Sender = Tabela[i, j] then ... // ovako proveravas koji je (ili nije) button u pitanju
// ...
end;
Mada, ovde cim izadjes iz procedure gubis pointere na kreirane TButton-e, odnosno varijablu Tabela moras deklarisati negde izvan procedure, kao globalnu, ili kao private field od forme (TForm) na kojoj sve ovo radis.
Znas sta, iz tvojih prethodnih postova vidim da ni pola ovoga neces razumeti :) . Nema veze, zapni sa ucenjem, a odgovor na pitanje "da li moze da se pristupa objektima preko indeksa" glasi MOZE. Kako budes napredovao, tako ce ti i gornji kod biti sve jasniji...
Rajko