在组件/表单销毁之前是否可以显示表单？

Question

我正在Delphi5工作

我想在组件在项目运行时被销毁之前出现一个自定义窗体。

是否可以在自定义组件中执行此操作？换句话说，我可以在定制组件在运行时被销毁之前显示表单吗？当它被放置的表单被关闭时？

我试图把下面的组件的析构函数，但我得到一个访问冲突错误时，窗体被关闭：

destructor TqqFormLogger.Destroy; 
begin 
    if NOT (csDesigning in ComponentState) then 
    SurveyForm.Click; 

    inherited Destroy; 
end; 

Answer 1

看一看重写BeforeDestruction()方法，而不是析构函数。

但是为什么在组件层？为什么不在父窗体的OnClose事件中执行？

Answer 2

一般来说，AV是某些代码试图调用一个不再存在的东西的例程的信号。

从这个角度看，一个AV为这个特定的析构函数的结果可能表明两种情况之一：

1. SurveyForm不存在了，或者
2. 代码为SurveyForm.Click结果预计将组件的存在，以是真的，但组件无论如何都会被销毁。

名称Click暗示SurveyForm是一个按钮式控件。如果该控件不是你的组件的一部分，而是组件所在表单的一部分，那么前者（情况1）当然可以是真的：表单的析构函数已经销毁了SurveyForm，现在即将销毁你的组件。你可以通过使用BeforeDestruction来防止这种情况，正如雷米已经提到的那样。另外（但只是一般性的提示，而不是解决你的问题），你可以通过注册该组件给你自己来通知它的销毁，从而防止使用被销毁的组件。与FreeNotification结合覆盖Notification为此在你无组件：

procedure TqqFormLogger.SetSurveyForm(Value: TForm); 
begin 
    FSurveyForm := Value; 
    FSurveyForm.FreeNotification(Self); 
end; 

procedure TqqFormLogger.Notification(AComponent: TComponent; 
    Operation: TOperation); 
begin 
    inherited Notification(AComponent, Operation); 
    if (AComponent = FSurveyForm) and (Operation = opRemove) then 
    FSurveyForm := nil; 
end; 

destructor TqqFormLogger.Destroy; 
begin 
    if FSurveyForm <> nil then 
    ... 

如果控制确实是你的组件的一部分，那么我怀疑背后Click代码允许组件的析构函数的过程使用无论如何（案2）。例如，在发布消息（手动或由于VCL或Windows内部结果）时，将在消息驱动或处理之前调用inherited Destroy。

简而言之：现在的问题太笼统了，无法给出具体的答案。