草庐IT

OnCloseQuery

全部标签

windows - 不阻止 Windows 关闭 OnCloseQuery

我有一个应用程序,它在关闭时通过红叉隐藏自己。用户可以通过右键单击托盘图标并选择退出来退出它。但它显然会阻止窗口关闭,所以我做了一个程序来响应WM_QUERYENDSESSION以启用关闭,这是相关代码:procedureTMainForm.OnWindowsEnd(varMsg:TMessage);//respondstomessageWM_QUERYENDSESSION;beginAllowClose:=true;Close;end;procedureTMainForm.FormCloseQuery(Sender:TObject;varCanClose:Boolean);begin