delphi - 免费通知如何工作？

Question

目前，我正在尝试了解Delphi的VCL，特别是通知机制(在我看来这是一个很棒的机制)。

当我学习这个主题时，我想起了TLabeledEdit，当然我已经使用它很长时间了，但我一直没有机会停下来研究它的代码。

据我所知:

当 TComponent 被销毁时:

1. 它将通知其所有子组件，以将 csDestroying 包含在其状态中。
2. FreeNotifiers 部分。我听不懂。
3. 将迭代组件列表并且:
   1. 从组件列表中删除每个项目
   2. 实际销毁每个组件实例。

当子组件被销毁时，它会为其所有子组件重新启动相同的进程。所以，据我所知，这是一个链式效应。

我无法理解的是FreeNotification，我可以用它做什么？

让我们首先考虑一下TLabeledEdit。 TLabeledEdit 代码中通知的相关部分是对 Notification 函数的重写，代码如下:

  if (AComponent = FEditLabel) and (Operation = opRemove) then
    FEditLabel := nil;

如果不使用 FreeNotification 会发生什么？

一般来说，这种机制会给我带来什么好处，以及我没有看到什么可能最终使它的存在变得必要？

Answer 1

FreeNotification 机制的作用是通知已注册的组件该组件正在被释放。然后，它们使用其 Notification 方法来确保它们不要保留对它的任何引用(这就是您的示例正在做的事情)，这样它们就不会以对无效对象的悬空引用结束。