هل يمكن إضافة حدث أثناء التنفيذ

[S.FATEH]

السلام عليكم
نعم يمكن ذلك كما يمكن تعطيله يجب ان تعرف prototype بنفس برامترات الحدث المراد انشاءه المثال احسن طريقة للفهم
هنا تعرف الـ procedure المراد انشاءه

PHP كود :

private
   procedure DoClick(Sender: TObject); 


2- الحاق الـ procedure بالحدث

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
 Button2.OnClick := DoClick;
end; 


الـ procedure اكتب العمليات التي تريدها

PHP كود :

procedure TForm1.DoClick(Sender: TObject);
begin
 ShowMessage('Hello')
end; 


لتعطيل الحدث لاعادة انشاءه الكود 1

 

PHP كود :

Button2.OnClick := nil
;