Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Object Array Onclick Yardım
#1
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 ?
Cevapla
#2
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;
There's no place like 127.0.0.1
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Fetch Rows Hakkında Yardım glagher 4 289 15-07-2019, Saat: 11:49
Son Yorum: glagher
Question Android için AES şifreleme yardım ? Mr.Developer 14 1.817 22-02-2019, Saat: 12:38
Son Yorum: Mr.Developer
  Delphi 10.2 de android yardım borasman 4 577 12-12-2018, Saat: 12:19
Son Yorum: mcuyan
  Formlar arası geçiş Yardım crowlin 6 1.128 11-11-2018, Saat: 19:58
Son Yorum: crowlin
  Firemonkey OnClick ve LongTap narkotik 0 371 17-10-2018, Saat: 23:28
Son Yorum: narkotik



Konuyu Okuyanlar: 1 Ziyaretçi