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

[Delphi4Us]

  ButtonEvent.rar (الحجم : 56.92 ك ب / التحميلات : 18) السلام عليكم

اذا اردت ان تنشي حدث لزر برمجته وقت التشغيل ستكتب شي مثل :

كود :

Button:=TButton.Create(nil); Button.OnClick :=   Button1Click  ;

والاجراء الموجه له هو

كود :

procedure  Form1.Button1Click(Sender: TObject) ; begin end;

هنا لا مشكلة وعندما تكون تبرمج داخل Form ما ولكن المشكلة التي واجهتني اثناء تنفيذ هذا في وحدة غير مرئية 
أي Unit عادية بحيث يكون الاجراء الموجه له هو :

كود :

procedure  Button1Click(Sender: TObject) ; begin end;

دائما رسالة الخطاء هي

[dcc32 Error] UntCommon.pas(75): E2009 Incompatible types: 'method pointer and regular procedure'

في النمودج Form1 يعمل في الوحدة Unit1 التي لا تحمل خصائص وليس لها واجهة او شكل لا يعمل

المثال في المرفقات

  ButtonEvent.rar (الحجم : 56.92 ك ب / التحميلات : 18)

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

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

جرب هذا

كود :

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

[AX302]

السلام عليكم 
ادا كنت تريد وضع كل شئ في وحدة جديدة ، يجب  عليك انشاء كلاس جديد و قم بوضع تلك الدالة الخاصة ب onclick داخلها

كود :

procedure  Button1Click(Sender: TObject) ;

[Delphi4Us]

شكرا اخ محمد هذا بالضبط ما احتاج