delphi - 关闭后如何释放TFrame

Question

当我们关闭一个框架时，它并没有被释放，它仍然保留在内存中并且仍然被分配。

如何跟踪TFrame的OnClose事件，以便能够释放框架？

Answer 1

TFrame 没有 OnClose 事件。您必须手动实现和跟踪。但是，当您准备好释放 Frame 对象时，您可以执行 TForm.Release() 的操作 - 向自己发布自定义消息，然后在消息处理程序中释放该对象。例如:

type
  TMyFrame = class(TFrame)
  private
    procedure CMRelease(var Message: TMessage); message CM_RELEASE;
  public
    procedure Release;
  end;

procedure TMyFrame.CMRelease(var Message: TMessage);
begin
  Free;
end;

procedure TMyFrame.Release;
begin
  PostMessage(Handle, CM_RELEASE, 0, 0);
end;

当你需要释放Frame时，只需调用Release()，它就会在方便的时候尽早释放自己。