+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : هل يمكن إضافة حدث أثناء التنفيذ (/showthread.php?tid=9019)
هل يمكن إضافة حدث أثناء التنفيذ - salem - 24-11-2017
السلام عليكم ورحمة الله
هل بالإمكان إضافة حدث لمكون ما أثناء التنفيذ ؟
مثلا لديا نافذة بها button1 و button2 كيف يمكن إضافة حدث لل button2 أثناء تنفيذ البرنامج من خلال button1 وحفظ هذا التغير في البرنامج للمرة القادمة هل هذا ممكن ؟ وشكرا
RE: هل يمكن إضافة حدث أثناء التنفيذ - Agmcz - 24-11-2017
وعليكم السلام
هل يمكن أن توضح أكثر.
RE: هل يمكن إضافة حدث أثناء التنفيذ - S.FATEH - 24-11-2017
السلام عليكم
نعم يمكن ذلك كما يمكن تعطيله يجب ان تعرف 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
;
RE: هل يمكن إضافة حدث أثناء التنفيذ - salem - 25-11-2017
شكرا أخي على التوضيح الرائع بارك الله فيك