delphi4arab منتديات دلفي للعرب

السلام عليكم

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

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

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

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

جرب هذه :

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

السلام عليكم

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

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

كود :
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;

CMT-10

لؤي

CMT-10