为什么我的messageDlg窗口不能关闭

Question

procedure TFrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if MessageDlg('你是否真的想退出登陆?', mtConfirmation, [mbYes, mbNo],0)=mrYes then
    begin
     //MessageDlg('Exiting the Delphi application.', mtInformation,[mbOk], 0);
     Close;
     FrmLogin.Close;
    end
   else
     Close;
end;

Answer 1

用messagebox();
procedure TFrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if application.Messagebox('你是否真的想退出登陆?',MB_OkCancel+MB_DefButton1+MB_IconQuestion+MB_ApplModal) = 1 then
    begin
      FrmLogin.Close;
      FrmLogin.free;
    end
end;

Answer 2

procedure TFrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if application.Messagebox('你是否真的想退出登陆?',MB_OkCancel+MB_DefButton1+MB_IconQuestion+MB_ApplModal) = 1 then
    begin
      FrmLogin.Close;
      FrmLogin.free;
    end
end;

Answer 3

邏輯錯誤啦!!因為你把這個判斷使用在close事件上面,所以form在關閉前總要彈出這個messagedialog!

Answer 4

我用了你们改的程序，结果出现错误，怎么了？
incompatible types 'integer' and 'PAnsiChar'
指示错误的是这一句if application.Messagebox('你是否真的想退出登陆?',MB_OkCancel+MB_DefButton1+MB_IconQuestion+MB_ApplModal) = 1 then

Answer 5

if MessageBox(0,Pchar('你是否真的想退出登陆?'),pchar('警告！'),Mb_YesNo+Mb_IconWarning)=Id_No then
  Abort;

Answer 6

if MessageDlg('你是否真的想退出登陆?', mtConfirmation, [mbYes, mbNo],0)=mrYes then
    begin
     //MessageDlg('Exiting the Delphi application.', mtInformation,[mbOk], 0);
     Close;
     FrmLogin.Close;
    end
   else
     Close;
把你的代码放到onclosequery事件中去试试！！

Answer 7

procedure TFrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if MessageDlg('你是否真的想退出登陆?', mtConfirmation, [mbYes, mbNo],0)=mrYes then
    begin
     FrmLogin.Close;
    end;
end;//后面的那个else是不用写的，

Answer 8

试一下这个吧：
procedure TFrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if MessageDlg('你是否真的想退出登陆?', mtConfirmation, [mbYes, mbNo],0)=mrYes then
         Close;
     end;