delphi4arab منتديات دلفي للعرب

نسخة كاملة : هل يمكن إضافة حدث أثناء التنفيذ
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله
هل بالإمكان إضافة حدث لمكون ما أثناء التنفيذ ؟
مثلا لديا نافذة بها button1 و button2 كيف يمكن إضافة حدث لل button2 أثناء تنفيذ البرنامج من خلال  button1 وحفظ هذا التغير في البرنامج للمرة القادمة  هل هذا ممكن ؟    وشكرا
وعليكم السلام
هل يمكن أن توضح أكثر.
السلام عليكم
نعم يمكن ذلك كما يمكن تعطيله يجب ان تعرف 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
; 
شكرا أخي على التوضيح الرائع بارك الله فيك