Çalışma Esnasında Kodla oluşturulan bir nesneye olay ekleme

Unyeli · Mesaj gönderen **Unyeli** » 21 Ağu 2003 10:39

Merhaba
Çalışma Esnasında kodla oluşturduğum bir nesnenin olaylarını nasıl kontrol edebiliriz. Mesala kodla oluşturduğum bir butonu hareket ettirmek istiyorum. bir butonu hareket ettirmek için,

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
TButton(Sender).perform(WM_SYSCOMMAND, $F012, 0);
end;

kodunu kullanıyorum. Ama kodla oluşturduğum butonu nasıl hareket ettirebilirim bana yardım ederseniz sevinirim.

hicker · Mesaj gönderen **hicker** » 22 Ağu 2003 08:09

merhaba,
oluşturduğun butona verdiğin ismin butonismi isimli bir string değişkende tutulduğunu düşünürsek sanırım aşağıdaki kod işini görür :

TButton(FindComponent(butonismi)).perform(WM_SYSCOMMAND, $F012, 0);

kolay gelsin..

Mesaj gönderen **naile** » 22 Ağu 2003 09:31

Button1MouseDown procedure ni private kısımda tanımla.
Butonunu run time oluşturduktan sonra şöyle bir kod yazman gerekiyor altına:

Kod: Tümünü seç

     obj_buton.onMouseDown := Button1MouseDown;

oluşturduğun butonun onMouseDown eventında o procedure yi çağırır.
Kolay gelsin.

Unyeli · Mesaj gönderen **Unyeli** » 22 Ağu 2003 10:52

Sevgili Hicker senin kod benimkiyle aynı işe yarıyo. o kodun çalışması için eklenen nesnenin olayını bir şekilde o koda yönlendirmem gerekiyo ama senin kod maalesef yemedi. teşekkür ederim.
Sevgili naile senin söylediğini tam anlayamadım. anladığım kadarıyla procedure'ü
private
procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
şeklinde tanımlıyoz. Ama bu sefer unit'in type kısmından silinmesi gerekiyo. o şekilde projeyi çalıştırdığımda 'invalid Property value' gibi bi hata veriyo. Alttada "Private symbol 'button1mousedown' declared but never used' hatası veriyo. private kısmında tanıtmadan denedim obj_buton tanımsız hatası veriyo. Ne yazık ki bu da işe yaramadı. Başka bir öneriniz var mı? Teşekkür Ederim.

Mesaj gönderen **freeman35** » 23 Ağu 2003 09:19

Öncelikle sana tavsiyem dikkatli ol, o "Alttada 'Private symbol 'button1mousedown' declared but never used' hatası veriyo." dediğin bir warning yani uyarıdır. Anlamını bilmiyorsun belki diye söyliyeyim., button1mousedown tanımlanmış ama hiç kullanılmamış demek.
Nailenin söylediğini biraz daha detaylandırayım, form un üzerine bir tane butan koy ve mouse down unu oluştur, daha sonrada eğer istemiyorsan form üzerinden butonu sil, sadece butonu Event kalsın, daha sonrada RunTime Button u nerde create ediyorsan, Create ettiğin Button un, (Diyelim adı My_Button)

Kod: Tümünü seç

My_Button.OnMouseDown := button1mousedown;

yazacaksın okadar.
Nailenin söylediği gibi Private kısmına eklenmek zorunda değil sadece Class ın içinde olması gerekir, Yani Protected yada public e de yazılabilinir
Kolay gele

Unyeli · Mesaj gönderen **Unyeli** » 23 Ağu 2003 10:14

fremen35 söylediğin gibi yaptım işe yaradı.
yardımlarınınz için teşekkür ederim.

mehmet_turecan_cakmak

unyeli ben senin yerinde olsam formun keydown olayına butonun top ve left olaylarıyla ilgili kodlar yazardım yani butonun top ve leftini arttırıp eksilterek gibi...

iyi çalışmalar...

bay_e87 · Mesaj gönderen **bay_e87** » 03 Eki 2007 10:10

freeman35 tam senin dediğini tam anlıyamadım

sadece butonu Event kalsın, daha sonrada RunTime Button u nerde create ediyorsan, Create ettiğin Button un, (Diyelim adı My_Button)
Kod:
My_Button.OnMouseDown := button1mousedown;

yazacaksın okadar.

özelliklede bu kısmı