德尔福所有权混乱

Question

我一直认为，销毁可视化控件是所有者负责的，如果我将nil作为所有者传递，我可以手动控制销毁。

考虑以下示例：

TMyForm = class (TForm)
private
  FButton : TButton;
end;

...
FButton := TButton.Create(nil);   // no owner!!
FButton.Parent := Self;

我希望这个按钮会产生内存泄漏，但它不会，实际上调用了TButton 的析构函数。

进一步调查表明，TWinControl 析构函数包含以下 sn-p 代码：

I := ControlCount;
while I <> 0 do
begin
  Instance := Controls[I - 1];
  Remove(Instance);
  Instance.Destroy;
  I := ControlCount;
end;

看起来它正在破坏子组件（Parent 设置为控件本身的组件）。

我没想到父控件会破坏控件。谁能解释为什么会这样？如果我传入所有者，谁在销毁该对象？

Answer 1

为什么会这样？

这是有道理的，而且是设计使然。当父级被销毁时，您认为孤立的子级控件应该发生什么？他们是否应该突然开始作为顶级窗口浮动？可能不是。是否应该将它们重新设置为另一个控件？哪一个？

who is destroying the object if I pass in an owner?

Parent，如果它首先被分配并被释放。 TWinControl 覆盖TComponent 的析构函数以释放其子控件first（继承的析构函数仅在以后调用）。孩子控制notify 他们的Owner 关于被销毁，这会将它们从其拥有的组件列表中删除。这就是为什么所有者稍后不会尝试在其析构函数中再次释放您的对象。

如果Parent 与Owner 是同一个对象，则上述内容也适用。

如果Parent 和Owner 是两个不同的对象，并且您先释放所有者，那么所有者组件将释放其所有拥有的组件（请参阅TComponent's destructor）。您的对象是TControl 的后代，TControl 覆盖析构函数以调用SetParent(nil);，这会从父控件的子控件列表中删除该实例。这就是为什么父级稍后不会尝试在其析构函数中再次释放您的对象。

Answer 2

我现在可以访问的最早版本是 Delphi 5，TWinControl 析构函数也有你发布的代码，所以这种行为已经存在很长时间了。而且当您考虑它时，这是有道理的 - Controls 是 visual 组件，当您销毁它们的容器（父级）时，销毁子级也是有意义的。 TWinComponent 的析构函数无法为您决定如何处理它们（隐藏它们？将它们重新设置为 Parent.Parent？但是如果当前 Parent 是顶级窗口，即它没有 Parent？等等）。因此，VCL 的设计者决定这是最安全的选择，避免内存/句柄泄漏（尤其是早期的 win 句柄，因此避免泄漏它们可能是重中之重）。所以如果你想让孩子留下来，你应该在销毁容器之前重新养育他们。

顺便说一句。如果你传递了一个 Owner，那么 TComponent.DestroyComponents;（由 TComponent.Destroy 调用）会破坏该组件。