+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تغيير اتجاه النقر على زر الاغلاق في صندوق الحوار (/showthread.php?tid=3891)
تغيير اتجاه النقر على زر الاغلاق في صندوق الحوار - CMT-10 - 18-02-2012
السلام عليكم
انا استخدم الحدث BeforeDelete للمكون adoTable كما بالشكل التالي :
كود :
if spSkinMessage1.MessageDlg('تحذير هل انت متاكد من رغبتك في حذف هذه البيانات....؟',mtWarning, [mbOK,mbNo],0) =mrNo then begin
abort;
end;المشكلة هي عند النقر على زر الاغلاق أكس للرسالة لا يتم الغاء المهمة وانما يتم الحذف
والشيخ قوقل لم يمر عليه الموضوع
تغيير اتجاه النقر على زر الاغلاق في صندوق الحوار - لؤي - 18-02-2012
جرب هذه :
PHP كود :
if spSkinMessage1.MessageDlg('تحذير هل انت متاكد من رغبتك في حذف هذه البيانات....؟',mtWarning, [mbOK,mbNo],0) =mOk
تغيير اتجاه النقر على زر الاغلاق في صندوق الحوار - CMT-10 - 22-02-2012
السلام عليكم
أجل شكرا جزيلا
وفاتني موضوع اختبار القيمة المسترجعة بالشكل التالي :
كود :
var Fint:integer;
Fint:= spSkinMessage1.MessageDlg('تحذير هل انت متاكد من رغبتك في حذف هذه البيانات....؟',mtWarning, [mbOK,mbNo],0);فما كان يحدث هو عند النقر على الزر أكس كانت القيمة المسترجعة تساوي 2 وبذلك هي هي مختلفة عن القيمة المسترجعة عند النقر على الزر الغاء وتساوي 7
وبالنهاية يمكن اعتماد هذا الكود كما بالشكل التالي :
كود :
if spSkinMessage1.MessageDlg('تحذير هل انت متاكد من رغبتك في حذف هذه البيانات....؟',mtWarning, [mbOK,mbNo],0) =mrOK then
else
abort;او بالاعتماد على القيمة المسترجعة بدل كما بالشكل التالي :
كود :
Fint:= spSkinMessage1.MessageDlg('تحذير هل انت متاكد من رغبتك في حذف هذه البيانات....؟',mtWarning, [mbOK,mbNo],0);
if Fint <> 1 then
Abort;