استفاده از messagedlg

[pejvak2007]

با سلام
خواهشمندم در مورد استفاده از messagedlg برای بستن فرمها در یک پروژه مرا راهنمایی کنید.

[mzjahromi]

استفاده از Messagedlg برای بستن فرمها؟
منظورت اینه که هنگام بسته شدن فرم سوال بپرسد؟
اگر این است میتونی از رویداد OnCloseQuery فرم استفاده کنی

[MNosouhi]

مثال :


procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Are you soure?',mtInformation,[mbYes,mbNo],0)<>IDYES then
CanClose:=false
end;

[babak869]

اینم یه نمونه


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

MsgCaption := 'اخطار';
MsgText := 'آیا مطمئن هستید که میخواهید از برنامه خارج شوید ؟';
MsgType := MB_YESNO + MB_ICONWARNING + MB_DEFBUTTON2 + MB_APPLMODAL + MB_RIGHT + MB_RTLREADING;


UserResp := MessageBox( Handle, PChar(MsgText), PChar(MsgCaption), MsgType);
{ UserResp := MessageBox( Handle, 'آیا مطمئن هستید که میخواهید از برنامه خارج شوید ؟', 'اخطار', $180134); }

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

موفق باشید