Genel İşlemler - Buton Koordinatları

Sayfayı Yazdır | Pencereyi Kapat

Buton Koordinatları

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=514
Tarih: 06 Ocak 2025 Saat 12:33
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: Buton Koordinatları

Mesajı Yazan: eneserdogan
Konu: Buton Koordinatları
Mesaj Tarihi: 24 Temmuz 2023 Saat 10:21

Form içerisinde oluşturmuş olduğum matrislerin içerisindeki butonların koordinatlarını nasıl alabilirim aldığım koordinatlara click olayını nasıl ekleyebilirim?

Cevaplar:

Mesajı Yazan: Alforce
Mesaj Tarihi: 26 Temmuz 2023 Saat 16:53

Bunlar işini görür sanırım:

// Butonumuzun hizalamsını kapatıyoruz
But1.Align:= alNone;

// Sonrasında ise konumlandırma
But1.Left:= 0;
But1.Top:= 0;

Şimdi daha zor olan 2. soruya gelelim,

Eğer basit bir OnClick olayından bahsediyorsan bu işini görür:

MyForm.AddNewEvent(But1, tbeOnClick, 'But1_OnClick');

Burda "MyForm" senin formun, farklı bir isme sahipse ona göre değiştir.

'But1_OnClick' ise çağırılacak prosedür.

Ama istediğin şey daha karmaşık bir çağırma işlemiyse(matris dediğin için bunu istediğini düşünüyorum) bu işini görür:

Var
  MyForm: TclForm;
  But1: TclButton;

Procedure But1_OnClick;
Var
  i: Integer;
Begin
  i:= TclButton(MyForm.clSender).clTagInt;
  
  ShowMessage('Clicked ID: '+IntToStr(i));
End;


Begin
  MyForm:= TclForm.Create(Self);
  
  But1:= MyForm.AddNewButton(MyForm, 'but1', 'Test');
  
  But1.clTagInt:= 5;
  MyForm.AddNewEvent(But1, tbeOnClick, 'But1_OnClick');
  
  MyForm.Run;
End.

Herbir butona matris sırasına göre tag atamanız gerekir.