delphi – 如何知道为什么’OnCloseQuery’被调用 – MDI子关闭
发布时间:2020-12-15 09:20:24 所属栏目:大数据 来源:网络整理
导读:我目前正在开发一个MDI应用程序. 每次创建新的MDI子窗口时,它的基础数据都会动态保存到SQLite数据库,并且打开的列设置为1,因此如果用户关闭程序并重新打开它,则会恢复窗口(以防万一) of Anything BadTM). 因此,每个文档始终存在于数据库中 – 如果用户单击“
我目前正在开发一个MDI应用程序.
每次创建新的MDI子窗口时,它的基础数据都会动态保存到SQLite数据库,并且打开的列设置为1,因此如果用户关闭程序并重新打开它,则会恢复窗口(以防万一) of Anything BadTM). 因此,每个文档始终存在于数据库中 – 如果用户单击“保存”,则唯一发生的事情是将持久性列设置为1. 现在,如果关闭MDI子窗口,则将open设置为0 – 并且持久性= 0 AND open = 0的每一行都将注定失败并将被删除. 由于这种行为,我不需要问“保存文件?”在ApplicationClose上. 把它们加起来: >应用程序正在关闭,或 有没有办法做到这一点? 解决方法
您需要在主窗体中覆盖受保护的虚方法CloseQuery.当它触发时你知道应用程序正在关闭.但是,在主窗体上触发OnCloseQuery事件之前,继承的实现会在MDI子节点上调用CloseQuery.
这是CloseQuery的TCustomForm实现: function TCustomForm.CloseQuery: Boolean; var I: Integer; begin if FormStyle = fsMDIForm then begin Result := False; for I := 0 to MDIChildCount - 1 do if not MDIChildren[I].CloseQuery then Exit; end; Result := True; if Assigned(FOnCloseQuery) then FOnCloseQuery(Self,Result); end; 请注意,MDI子项在Self之前获得了CloseQuery通知,即主表单. 因此,在您的主要表单中,您需要: type TMainForm = class(TForm); private FCloseQueryExecuting: Boolean; protected function CloseQuery: Boolean; override; public property CloseQueryExecuting: Boolean read FCloseQueryExecuting; end; 然后是一个看起来像这样的实现: function TMainForm.CloseQuery: Boolean; begin FCloseQueryExecuting := True; try Result := inherited CloseQuery; finally FCloseQueryExecuting := False; end; end; 然后,MDI子项可以在其OnCloseQuery事件中检查主窗体的FCloseQueryExecuting属性的状态. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |