şö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;
|