پیام تایید قبل از بسته شدن برنامه

[mahdy.asia]

من می خواهم قبل از خروج از برنامه کاربر خارج شدن از برنامه را تایید نماید.(بسته شدن از طریق SystemMenu پنجره فرم اصلی)

[ali_khodayar]

یه مسیج باکس بزار که از کاربر سوال بپرسه
if (MessageBox.Show("txt1", "txt2", MessageBoxButtons.OKCancel) == DialogResult.OK)
{
this.Close();
}

این یک پیغام میده که اگر کاربر OK رو زد از برنامه خارج میشه حالا شما میگید بسته شدن از طریق SystemMenu پنجره فرم اصلی منظور رو متوجه نمیشم اما احتمالا این کمکت کنه

[firststep]

سلام دوست عزیز
اقای خدایار درست می فرمایند این شکلی میشه
اما طریقه تعریف
روالش به این شکل
procedure exitr(var Message: TWMClose); message WM_CLOSE;

با این کار در حقیقت شما مسیج wm_close رو هندل میکنین
حالا در در بدنه روال فرمایش افای خدایار و می نویسین

[khorsandreza]

if (MessageBox.Show("txt1", "txt2", MessageBoxButtons.OKCancel) == DialogResult.OK)
{
this.Close();
}



ببخشید من دقیقا متوجه نشدم این کد برای دلفی یا سی شارپ

[gholami146]

در رویدادهای فرمم اصلی شما رویدادی وجود دارد بنام OnClose که دارای متغییری بنام CanClose میباشد با مقدار دهی آن به مقصود خود می رسید

[firststep]

:) :لبخندساده:
فکر کنم دوستمون چند زبانی >>>> قاطی کرده
اره اون ماله سی شارپه
procedure exitr(var Message: TWMClose); message WM_CLOSE;


پس اینجور میشه که این رو توی قسمت type می نویسیم
و بعد
procedure tform1.exitr(var Message: TWMClose); message WM_CLOSE;
begin


case
Application.MessageBox('r u sure close form',
' _ar u sure exit_ ', MB_OKCANCEL + MB_ICONSTOP) of
IDOK:
begin
///// --- event ok button
end;
IDCANCEL:
begin
///// --- event cancel button
end;
end;


end;

[fahimi]

با سلام


if MessageDlg('از برنامه خارج میشوید', mtConfirmation, [mbYes, mbNo], 0) = mrYes then application.Terminate;

[یوسف زالی]

فهیمی جان داستان چیز دیگه هست..

[mahdy.asia]

:) :لبخندساده:
فکر کنم دوستمون چند زبانی >>>> قاطی کرده
اره اون ماله سی شارپه
procedure exitr(var Message: TWMClose); message WM_CLOSE;


پس اینجور میشه که این رو توی قسمت type می نویسیم
و بعد
procedure tform1.exitr(var Message: TWMClose); message WM_CLOSE;
begin


case
Application.MessageBox('r u sure close form',
' _ar u sure exit_ ', MB_OKCANCEL + MB_ICONSTOP) of
IDOK:
begin
///// --- event ok button
end;
IDCANCEL:
begin
///// --- event cancel button
end;
end;


end;



از راهنمایی شما متشکرم.
چطور می تونم این پیام را راست چین کنم؟