delphi中的退出程序的确认 delphi

delphi中的退出程序的确认 在formclose中用

if Application.MessageBox('你确认要退出吗？','请确认',MB_YesNo+MB_IconQuestion)=IDno then
begin
........//这里写什么,程序才不会退出
end

这上面有问题，不是确认。

不是在 Form 的 Close 事件里,因该在 CloseQuery 事件
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if (IDYES = Application.MessageBox('确定要退出吗?','提示',MB_YesNo+MB_IconQuestion)) then
CanClose:=TRUE
else
CanClose:=FALSE;
end;

或者

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Application.MessageBox('你确认要退出吗？','请确认',MB_YesNo+MB_IconQuestion)=IDno then
application.run;
end;


　　　　　　　　　　　　　 查看评论 回复