为什么点击<否>也退出系统？请指教？

Question

为什么点击<否>也退出系统？请指教？
内容如下:
http://www.myf1.net/bbs/dispbbs.asp?boardID=5&ID=256197

Answer 1

改成：  if Application.MessageBox('　　你确定要退出本系统吗？' + #13#10#13#10 +
    '注意：请检查有没有尚未保存的工作！', '退出提示', MB_YESNO +
      MB_ICONQUESTION) = 7 then begin
  //退出系统
    CanClose := False;
  end;
将你原来的Application.Terminate改成 CanClose := False;

Answer 2

if Application.MessageBox('您确定要离开系统吗？','系统信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
    Application.Terminate
  else
    exit;
第二种方法:
procedure TF_login.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if Application.MessageBox('您确定要离开系统吗？','系统信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
    Application.Terminate
  else
    action:=canone;
end;procedure TF_login.bt_canClick(Sender: TObject);
begin
  Self.Close;
end;