Kodla nesne oluşturdum event eklemem gerekiyor yardım lütfen

[huseyin_yigit]

Program koduyla yeni bir nesne oluşturuyorum ama event ekleyemedim.mesela nesne buton olsun bu butona onclick olayı eklemek istiyorum ve click olayı gerçekleştiğinde bir yere dallanacak mesela bir fonksiyon çağrılacak.

Yardımcı olursanız sevinirim şimdiden teşekkürler.

[blackfox]

event leri procedure olarak yazıyorsun.. mesela: procedure.Tbutton2.onclick(sender); gibi bir başlık yazıp kodları altına yazıyorsun. nesneye çift tıklarsan zaten onclick procedure kısmına geçersin kod sayfasında.

[hmustak]

şöyle de yazılabilir (with bloğundan çıkarttım okunabilirliği için)

var
Form1: TForm1;
yarat:tbutton;

implementation

{$R *.dfm}



procedure TForm1.yarat_bagla(Sender: TObject);
begin
//Olayın gerçekleşmesi sonunu yapılacak iş
ShowMessage('Maraba Televole');
end;



procedure TForm1.FormCreate(Sender: TObject);
begin

yarat:=tbutton.create(Form1);
yarat.left:=100;
yarat.top:=100;
yarat.width:=100;
yarat.height:=100;
yarat.caption:='Yarat';
yarat.parent:=form1;
// Olaya bağlama
yarat.onclick:=yarat_bagla;

end;