Object Array Onclick Yardım

[crowlin]

for I := Low(kareler) to High(kareler) do
begin
randomize;
kareler[i] := TRectangle.Create(form2);
kareler[i].Name := 'kare'+inttostr(i);
kareler[i].SetBounds(tp,random(form2.Height),50,50);
kareler[i].Parent := form2;
tp := tp +trunc(ekran);
end;

Bir Rectangle dizim var her birinin onclick eventine nasıl ulaşabilirim ?

[SimaWB]

Kendi yazdığınız bir fonksiyonu Rectangle'ın OnClick olayına atayarak yapabilirsiniz:

kareler[i]..OnClick := RectClick;

Buradaki RectClick'i şu şekilde tanımlayabilirsiniz:

procedure RectClick (Sender: TObject);
begin
// Buradaki Sender, hangi TRectange'a tıklandıysa onu ifade eder. 
// TRectange(Sender) şeklinde kullanabilirsiniz.  
// TRectange(Sender).Name gibi... 
end;