Delphi关闭程序前确认

最新推荐文章于 2018-09-12 19:18:36 发布

原创最新推荐文章于 2018-09-12 19:18:36 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi

delphi 专栏收录该内容

33 篇文章

订阅专栏

本文介绍如何使用Delphi中的FormCloseQuery事件来确认用户是否真的希望关闭窗口。通过调用MessageBox函数并显示提示消息，根据用户的响应决定是否允许窗口关闭。

使用Form的FormCloseQuery事件：

procedure   TMainFrm.FormCloseQuery(Sender:   TObject;   var   CanClose:   Boolean);   
begin   
      Canclose   :=   MessageBox('真的要退出吗？',   '提示',   MB_YESNO+MB_ICONQUESTION)   =   ID_YES;     
end; 

之后会触发FormClose事件。