forms - 所有 MDI 表单关闭时发生的事件

Question

伙计们，我想知道是否有人知道当所有 MDI 表单关闭时我可以拦截的任何事件或方法。

示例:

我想在我的主窗体中实现一个事件，当我关闭所有 MDI 窗体时，会触发这样的事件。

如果有人能提供帮助，我们将不胜感激。

Answer 1

MDI子窗体(实际上任何窗体)在被销毁时都会通知主窗体。您可以使用此通知机制。示例:

type
  TForm1 = class(TForm)
    ..
  protected
    procedure Notification(AComponent: TComponent; Operation: TOperation);
      override;

  ..

procedure TForm1.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited;
  if (Operation = opRemove) and (AComponent is TForm) and
      (TForm(AComponent).FormStyle = fsMDIChild) and
      (MDIChildCount = 0) then begin

    // do work

  end;
end;