+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ربط الازرار بزر واحد (/showthread.php?tid=5390)
ربط الازرار بزر واحد - erorr - 13-07-2013
السلام عليكم ورحمة الله وبركاتة
انشئت برنامج بلغة الدلفي يحمل لنفترض 3 ازرار وكل زر يقول بانشاء سورس كود مختلف , كيف تجميع الثلاث ازرار ( بزر واحد فقط ) والزر الواحد ان ضغطت علية يقول ( بانتاج سورسات مختلفة ) حسب الـ 3 ازرار اللتي انشئتها مسبقا .
علما بان كود زر الضغط هو كالتالي :
كود :
memo1.Lines.SaveToFile('Project2.dpr');
memo2.Lines.SaveToFile('functions.pas');
memo3.Lines.SaveToFile('cazanova.bat');ربط الازرار بزر واحد - rabihpascal - 13-07-2013
كود :
button1.click; button2.click; button3.click; end;ربط الازرار بزر واحد - erorr - 13-07-2013
خطاء بالكود , كذلك لا تنسى ان ينشي كود عشوائي في كل ضغطة زر
قمت بحذف الـ end; من الاخر اي اصبح فقط end; وآحد في الزر ..
قمت بالتجربة وحفظ البرنامج لكن عند الضغط على الزر يعلق ويظهر اغلاق البرنامج ...
ربط الازرار بزر واحد - S.FATEH - 14-07-2013
السلام عليكم يمكنك ذلك بتوضيف الـ 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 - 14-07-2013
لم افهم ماتقصدة عن : بتوضيف الـ Sender ...
لآن ظهر خطاء هنا : if TButton(Sender).Caption = Button1 then
واعتقد مع الاخرى ....
ربط الازرار بزر واحد - M_Mori2010 - 14-07-2013
جربها هكذا ,,
PHP كود :
if TButton(Sender).Caption = Btn1.Caption then