销毁期间的 VCL 事件

Question

我遇到一个问题，某些 VCL 控件在被销毁时偶尔会触发事件，导致在已被销毁的子类表单中调用处理程序（例如，该控件被 TForm 父级的析构函数杀死）。 ）

这是有问题的（第三方）控件违反合同吗？我是否应该在每个事件处理程序中添加“if（open）”防护，或者应该由其他机制来处理。我也许天真地认为 __published 闭包会自动取消注册，有点类似于常规虚拟函数的工作方式。

Answer 1

您的错误控件的“Owner”属性设置正确吗？默认情况下，表单拥有其上的所有控件，这些控件的“Owner”属性指向 TForm 实例，并且该表单负责释放所有拥有的控件。如果您通过 IDE 表单设计器设计表单，这就是事情的工作方式。如果手动创建控件，则必须通过构造函数提供“Owner”属性。检查您作为“所有者”是否通过了正确的表格。另外，如果您有构建在 TControl 之上的自定义控件的源，请检查它们的构造函数是否正确地将“Owner”属性传递给底层 TControl 构造函数。

Answer 2

__published 闭包不提供任何此类保证，闭包只是指向类实例和其中的函数的指针。然而，VCL 中还有其他机制可以做到这一点。

通常，在开发依赖于其他组件的组件时，最好确保在删除组件时清除对组件的所有内部引用。在 VCL 中，可以通过 TComponent 中的免费通知来实现这一点。

如果您依赖的组件有不同的所有者并且不在表单上，​​那么您必须注册您的组件才能接收这些通知。您可以通过 FreeNotification 函数（请记住在删除通知组件时再次取消注册您的组件，为此用途 删除免费通知）。每当将控件添加到与此组件相同的表单（或所有者）时，函数 < code>Notification 将通过添加或删除的组件以及执行的操作的引用来调用。

因此，您只需覆盖 Notification 函数，记住还要调用父函数。重载函数可能如下所示：

void __fastcall TMyComponent::Notification(TComponent* AComponent, TOperation Operation)
{
    if (Operation == opRemove && AComponent == interestingComponent)
    {
        this->interestingComponent = NULL;
    }

    inherited::Notification(AComponent, Operation);
}

如果这是第三方控件，他们当然应该确保这一点并确保有