2 ygm8611 ygm8611 于 2016.03.17 21:36 提问

Delphi中我在Form里新建了一个Button用来关闭exe应用程序。

Delphi中我在Form里新建了一个Button用来关闭exe应用程序。
然后我要求点击按钮有提示问是否要删除,另外点击Form上的关闭按钮也要有一样的提示
如何做?

1个回答

caozhy
caozhy   Ds   Rxr 2016.03.17 23:20
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  case Application.MessageBox('确定退出系统?','询问',35) of
    6:
      begin
        ShowMessage('按了是,窗口关闭');
        CanClose:=True;
      end;
    7:
      begin
        ShowMessage('按了否,返回登陆窗口');
        CanClose:=True;
        //这里写上你的登陆窗口调用代码
        ShowMessage('登陆窗口出现了');
      end;
    2:
      begin
        ShowMessage('按了取消,窗口不关闭');
        CanClose:=False;
      end;
  end;
end; 

在你的按钮上也写form.Close();

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!