انشاء حدث للزر اثناء التنفيذ

[محمد عبد العزيز]

وعليكم السلام

جرب هذا

كود :

procedure TForm1.FormCreate(Sender: TObject); var M: TMethod; begin Button1.OnClick:= ButtonClick ; M.Data := nil; M.Code := @Button12Click; Button2.OnClick := TNotifyEvent(M); end;