شرط گذاری در پیغام ...

[Mahmood_M]

من یک Message Box رو نشون می دم و می خوام که وقتی دکمه Yes در این پیغام زده شد یک اتفاقی بیافته.
من شرط رو این طور گذاشتم که وقتی MessageBox برابر با 6 بود فلان کد اجرا بشه.
اما در بعضی از موارد مشاهده کردم که کد خوب عمل نمی کنه وبعد اون 6 رو کردم 5 و عمل کرد.
می خواستم ببینم دیگه از چه راهی می تونم شرط بزارم که وقتی مثلا YES یا NO زده شد فلان کد اجرا بشه.
کد نمونه پیغام هم به صورت زیره :

if MessageBox(Handle, 'آیا مایل به خروج از نرم افزار هستید ؟', '', MB_YESNO+MB_ICONQUESTION)= 6 then
Form2.Close;

[seaman202008]

شما می توانید از کد های کتاب جعفر نژاد قمی فصل بانک های اطلاعاتی مشکلتان را حل کنید

[Goeezor]

به کتاب ویژوال بیسیک در 21 روز اقای زارع پور صفحه110

[Mahmood_M]

به کتاب ویژوال بیسیک در 21 روز اقای زارع پور صفحه110
دست شما درد نکنه ، ولی :
مگه این کتابی که معرفی کردید برای VisualBasic نیست؟ !!!
من با دلفی 7 برنامه می نویسم
درضمن :
برای یک مسئله ساده که دیگه نباید کتاب خرید !!!

[vcldeveloper]

if MessageBox(....) = idYes then
...

[Mahmood_M]

آقای کشاورز دست شما درد نکنه ...

[Delphi_OnLine999]

اگر از IDYES استفاده کنی شاید مشکل شما حل شود

البته راه حل های دیگری هم دارد ......

[babak869]

شما میتونید از کد زیر استفاده کنید :


{
Var
MsgText, MsgCaption : String;
MsgType, UserResp : integer;
}

MsgCaption := 'عنوان پیغام شما';
MsgText := 'آیا مطمئن هستید که میخواهید رکورد مورد نظر را پاک کنید؟';
MsgType := MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2 + MB_APPLMODAL + MB_RIGHT + MB_RTLREADING;


UserResp := MessageBox( Handle, PChar(MsgText), PChar(MsgCaption), MsgType);
{ UserResp := MessageBox( Handle, 'آیا مطمئن هستید که میخواهید رکورد مورد نظر را پاک کنید؟', 'عنوان پیغام شما', $180124); }

Case UserResp of
IDYES :
begin
end;
IDNO :
begin
end;
end;