ربط الازرار بزر واحد

[erorr]

السلام عليكم ورحمة الله وبركاتة

انشئت برنامج بلغة الدلفي يحمل لنفترض 3 ازرار وكل زر يقول بانشاء سورس كود مختلف , كيف تجميع الثلاث ازرار ( بزر واحد فقط ) والزر الواحد ان ضغطت علية يقول ( بانتاج سورسات مختلفة ) حسب الـ 3 ازرار اللتي انشئتها مسبقا .
علما بان كود زر الضغط هو كالتالي :

كود :

memo1.Lines.SaveToFile('Project2.dpr'); memo2.Lines.SaveToFile('functions.pas'); memo3.Lines.SaveToFile('cazanova.bat');

[rabihpascal]

كود :

button1.click; button2.click; button3.click; end;

[erorr]

خطاء بالكود , كذلك لا تنسى ان ينشي كود عشوائي في كل ضغطة زر
قمت بحذف الـ end; من الاخر اي اصبح فقط end; وآحد في الزر ..
قمت بالتجربة وحفظ البرنامج لكن عند الضغط على الزر يعلق ويظهر اغلاق البرنامج ...

[S.FATEH]

السلام عليكم يمكنك ذلك بتوضيف الـ 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

[erorr]

لم افهم ماتقصدة عن : بتوضيف الـ Sender ...

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

واعتقد مع الاخرى ....

[M_Mori2010]

جربها هكذا ,,

PHP كود :

if TButton(Sender).Caption = Btn1.Caption then