Close 退出程序问题弹出是否退出问题。

Question

下面是代码procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.MessageBox('是否确认退出程序','确认信息',MB_YESNO + MB_ICONQUESTION )end;end.{退出提示按是的时候退出了程序，但是按否的时候也退出的程序，我想当按否的时候不退出程序如何做请知道朋友指教}

Answer 1

  if MessageBox(0,'是否要退出本程序？','提示信息',MB_YESNO+MB_ICONQUESTION)=IDYES then
  begin
    Application.Terminate;
    end
    else
    begin
      Action := caNone;
    end;

Answer 2

  if Application.MessageBox('你真的要退出本系统吗？','提示信息',MB_YESNO+MB_ICONQUESTION)= IDYES then
    Action:=caFree
  else
    Action:=caNone;
  end;

Answer 3

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Application.MessageBox( '是否确认退出程序 ', '确认信息 ',MB_YESNO + MB_ICONQUESTION)<>IDYES then
     CanClose:=False;
end;
我经常是这样实现的。

Answer 4

写在OnCloseQuery事件
CanClose:=False即不允许退出