+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كود الشرط في button (/showthread.php?tid=7101)
كود الشرط في button - محمد .م.م - 16-07-2015
اقوم بعمل برنامج واضع زرين عند الضغط على زر الاول ثم الضغط على الأخر يتم تنفيذ امر معين وعند الضغط على الزر الاخر فقط دون الضغط على الزر الاول يتم تنفيذ امر اخر
كيف يتم ذلك
كود الشرط في button - Agmcz - 16-07-2015
السلام عليكم
ضع متغير global من نوع Boolean نعطيه القيمة False إفتراضيا
عند الضغط على زر الأول نسند القيمة True للمتغير
عند الضغط على الزر الثاني نتحقق من حالة المتغير
بهذا الشكل
PHP كود :
var
Clicked: Boolean = False;
procedure TForm1.Button1Click(Sender: TObject);
begin
Clicked := True;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if Clicked then
ShowMessage('')
else
ShowMessage('');
end;
كود الشرط في button - محمد .م.م - 16-07-2015
من الواضح انك لم تفم سؤالى
عند الضغط على الزر الاول الموجود فى form2 يتم تنفيذ امر لصق البيانات من form2 ألى form1 ثم الضغط على الزر الاخر الموجود فى form1 يتم تعديل البيانات بالبيانات التى تم لصقها وتثبيتها فى form1 و form2
اما اذا تم الضغط على على الزر الاخر الموجود فى form1 دون الضغط على الزر الاول الموجود فى form2 يتم تنفيذ امر اضافة البيانات فى form1 و form2
كيف ذلك