تغيير اتجاه النقر على زر الاغلاق في صندوق الحوار

[CMT-10]

السلام عليكم

انا استخدم الحدث BeforeDelete للمكون adoTable كما بالشكل التالي :

كود :

if spSkinMessage1.MessageDlg('تحذير هل انت متاكد من رغبتك في حذف هذه البيانات....؟',mtWarning, [mbOK,mbNo],0) =mrNo then begin abort; end;

المشكلة هي عند النقر على زر الاغلاق أكس للرسالة لا يتم الغاء المهمة وانما يتم الحذف

والشيخ قوقل لم يمر عليه الموضوع

[لؤي]

جرب هذه :

PHP كود :

if spSkinMessage1.MessageDlg('تحذير هل انت متاكد من رغبتك في حذف هذه البيانات....؟',mtWarning, [mbOK,mbNo],0) =mOk 


[CMT-10]

السلام عليكم


أجل شكرا جزيلا

وفاتني موضوع اختبار القيمة المسترجعة بالشكل التالي :

كود :

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;