delphi – 如何知道为什么’OnCloseQuery’被调用 – MDI子关闭或应用程序关闭？

我目前正在开发一个MDI应用程序.
每次创建新的MDI子窗口时,它的基础数据都会动态保存到SQLite数据库,并且打开的列设置为1,因此如果用户关闭程序并重新打开它,则会恢复窗口(以防万一) of Anything BadTM).
因此,每个文档始终存在于数据库中 – 如果用户单击“保存”,则唯一发生的事情是将持久性列设置为1.
现在,如果关闭MDI子窗口,则将open设置为0 – 并且持久性= 0 AND open = 0的每一行都将注定失败并将被删除.

由于这种行为,我不需要问“保存文件？”在ApplicationClose上.
但每次MDI子窗口关闭时我都需要询问.
如果在MDIChild.OnCloseQuery之前调用Mainform.OnCloseQuery,那将很容易做到,但遗憾的是情况并非如此.

把它们加起来：
我需要一种方法来了解是否调用了MDIChild.OnCloseQuery

>应用程序正在关闭,或
> MDI子窗口正在关闭.

有没有办法做到这一点？

您需要在主窗体中覆盖受保护的虚方法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属性的状态.