＋设为首页 ＋添加到收藏夹
我想让用户在试图关闭程序时弹出一个对话框，告知程序不能被关闭，于是添加了窗体OnClose的响应函数，确实可以弹出对话框，可是一点确定程序还是被关了。请问大家该怎么做呢？
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if(MessageBox(Handle,"ȷʵҪ¹Ø±ÕÂð?","È·¶¨",MB_OKCANCEL )==ID_OK)
CanClose=true;
else
CanClose=false;
}
晕啊。怎么乱码了。
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if(MessageBox(Handle,"确实要关闭吗?","确定",MB_OKCANCEL )==ID_OK)
CanClose=true;
else
CanClose=false;
}
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
if (MessageDlg("确定要退出吗",mtConfirmation,TMsgDlgButtons()<<mbYes<<mbNo,0) == mrNo)
{
Action = caNone;
return;
}
}
