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

[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;