Nesneye Event Ekleme

[emrgln]

Mrb arkadaşlar,

Kod ile oluşturduğum herhangi bir nesne için nasıl event ekleyebilirim?

İlgilenen herkese teşekkürler şimdiden

[unicorn64]

oluşturduğunuz nesnenin sınıfını miras alıp bir sınıf oluşturabilirsiniz ve bu sınıfa istediğiniz prosedür foksiyon property vs ekleyebilirsiniz

[emrgln]

Cevabınız için çok teşekkür ederim. Minik de olsa bir örnek var mı? ufkumu açması için.

[freeman35]

Her kullandığın component sana birer örnek zaten, class ların üzerine "ctrl + left click" yaparsan, o class'a ve tanımına geçer.
"Kod ile oluşturduğum....." runtime da oluşturduğum anlamında kullandıysan bu olmaz. Ancak pascal scrip component larıyla olabilir. Fast report buna örnek olabilir, design kısmında, kod tabına yazılanlar runtimeda script tarafından derlenip çalıştırılır.
Kolay gele

[emrgln]

Kodla oluşturdum dediğimden kastım örneğin Mdi Form içine bir Mdi childı kod ile oluşturdum. En basitinden bunu kapatmak için mdi child on close event' ı içine Action:=Cafree; demem lazım. Ama bu on close eventi nasıl oluşur. Sormaya çalıştığım bu

[sabanakman]

Bu bileşen oluşumuna basit bir örnek göstermeden sağlıklı cevap almanız pek mümkün durmuyor maalesef.

[emrgln]

Nesneyi oluşturma kodum bu. bir form create ediyoyrum mdichild olarak. içinde de bir takvim create ediyorum. Kodla oluşturduğum bu MdiChild formun eventları nasıl oluşur. Ne yapabilirim.

procedure TForm1.dxBarLargeButton2Click(Sender: TObject);
var
takvimformu:Tform;
takvimNesne:TMonthCalendar;
begin
Application.CreateForm(TForm, takvimformu);
takvimNesne:=TMonthCalendar.Create(takvimformu);
takvimNesne.Parent:=takvimformu;
takvimNesne.AutoSize:=true;
takvimformu.AutoSize:=true;
takvimformu.BorderStyle:=bsDialog;
takvimformu.FormStyle:=fsMDIChild;
takvimformu.Caption:='Tarih Seç';
takvimformu.Show;
end;

[akdatilla]

Merhaba
Örnek olarak bir kod bloğu:

Kod: Tümünü seç

procedure TForm1.TakvimGosterilecek(Sender:TObject);
begin
(Sender as TForm).Caption:='Takvim1';
end;
procedure TForm1.dxBarLargeButton2Click(Sender: TObject);
var
takvimformu:Tform;
takvimNesne:TMonthCalendar;
begin
Application.CreateForm(TForm, takvimformu);
takvimNesne:=TMonthCalendar.Create(takvimformu);
takvimNesne.Parent:=takvimformu;
takvimNesne.AutoSize:=true;
takvimformu.AutoSize:=true;
takvimformu.BorderStyle:=bsDialog;
takvimformu.FormStyle:=fsMDIChild;
takvimformu.Caption:='Tarih Seç';
takvimformu.OnShow:=TakvimGosterilecek;
takvimformu.Show;
end;

[freeman35]

en basit yöntem, bu dediklerini önce bir form üzerinde designtime da hazırla. Tüm event lerini vs herşeyi. Sonra kullanmak istediğin unit içine, design time da yaptıklarını, yani onxxxx vs procedureleri kopyala.
Manual create edilmiş yada var olan bir class a atama yapacaksın, "TClass.onxxxx :=falanfilan;" parametre falan yok, sadece adı. Derleyici event i kullanmak istediğinde parametreleri gönderir. Unit te eklediğin "falanfilan" procedure yada function, "TClass.onxxxx" ile aynı olmalı, parametreler adeti tipi ve sıraları. O yüzden yukarıda yazdığım gibi bir yerde IDE ye bunları yaptırtıp kopyalamak en hatasız yol.
iptal etmek içinde "TClass.onxxxx :=nil;"
Kolay gele

[thelvaci]

Aşağıdaki linkler sorunuza ışık tutabilir sanıyorum.

http://www.tugrulhelvaci.com/?p=74
http://www.tugrulhelvaci.com/?p=67