关闭提示的代码:
procedure Tmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if application.MessageBox('你确定退出系统吗?','提示',mb_okcancel)=idok
then close;
end;
...全文
1456打赏收藏
为什么我的程序在关闭的确认对话框里,按确定没反应,反而按取消关闭?
关闭提示的代码: procedure Tmain.FormClose(Sender: TObject; var Action: TCloseAction); begin if application.MessageBox('你确定退出系统吗?','提示',mb_okcancel)=idok then close; end;
可以放在OnClose里面的,不过代码要变一下:
procedure Tmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if application.MessageBox('你确定退出系统吗?','提示',mb_okcancel)<> idok then
Action := caNone;
end;