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

نسخة كاملة : ربط الازرار بزر واحد
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاتة

انشئت برنامج بلغة الدلفي يحمل لنفترض 3 ازرار وكل زر يقول بانشاء سورس كود مختلف , كيف تجميع الثلاث ازرار ( بزر واحد فقط ) والزر الواحد ان ضغطت علية يقول ( بانتاج سورسات مختلفة ) حسب الـ 3 ازرار اللتي انشئتها مسبقا .
علما بان كود زر الضغط هو كالتالي :
كود :
memo1.Lines.SaveToFile('Project2.dpr'); memo2.Lines.SaveToFile('functions.pas'); memo3.Lines.SaveToFile('cazanova.bat');
كود :
button1.click; button2.click; button3.click; end;
خطاء بالكود , كذلك لا تنسى ان ينشي كود عشوائي في كل ضغطة زر
قمت بحذف الـ end; من الاخر اي اصبح فقط end; وآحد في الزر ..
قمت بالتجربة وحفظ البرنامج لكن عند الضغط على الزر يعلق ويظهر اغلاق البرنامج ...
السلام عليكم يمكنك ذلك بتوضيف الـ Sender

اضف الكود التالي مثلا في حدث الضغط على button1
كود :
if TButton(Sender).Caption = Button1 then doWhatYouWant if TButton(Sender).Caption = Button2 then doWhatYouWant if TButton(Sender).Caption = Button3 then doWhatYouWant

اذهب الى button2 و ثم events حدث Onclick و اختر من القائمة المنسدلة Button1Click
نفس الشيئ بالنسلة للـ Button3
لم افهم ماتقصدة عن : بتوضيف الـ Sender ...

لآن ظهر خطاء هنا : if TButton(Sender).Caption = Button1 then

واعتقد مع الاخرى ....
جربها هكذا ,,

PHP كود :
if TButton(Sender).Caption = Btn1.Caption then