加载程序

Question

我已经注册为成分的TFrame的子类，我已经注意到，Loaded程序执行两次：

运行：

TMyFrame = class(TFrame) 
    private 
    protected 
    procedure Loaded(); override; 
    public 
    constructor Create(AOwner : TComponent); override; 
    end; 

constructor TMyFrame.Create(AOwner : TComponent); 
begin 
    ShowMessage('Before TMyFrame.Create'); 
    inherited Create(AOwner); 
    ShowMessage('After TMyFrame.Create'); 
end; 

procedure TMyFrame.Loaded(); 
begin 
    ShowMessage('Before TMyFrame.Loaded'); 
    inherited; 
    ShowMessage('After TMyFrame.Loaded'); 
end; 

设计时：

procedure Register; 
begin 
    RegisterComponents('Test', [TMyFrame]); 
end; 

输出：

在运行时，创建一个表单，其中有一个TMyFrame组件。

TMyFrame.Create

之前

之前TMyF​​rame.Loaded

后TMyFrame.Loaded

TMyFrame.Create

之前TMyF​​rame.Loaded

TMyFrame.Loaded后后

在设计时，就加入了TMyFrame到窗体：

TMyFrame.Create

之前

之前TMyF​​rame.Loaded

后TMyFrame.Loaded

TMyFrame.Create

后

在设计时，op付民的形式，其中有一个TMyFrame成分：

之前TMyF​​rame.Create

TMyFrame.Loaded

之前

后TMyFrame.Loaded

后TMyFrame.Create

之前TMyFrame.Loaded

TMyFrame.Loaded

为什么Loaded过程被执行两次？如何避免这种情况？

Answer 1

此行为是按设计的。

Loaded

加载可以在遗传形式的多次调用。在每次继续传输继承级别时，它都被称为 。不要在重写的Loaded方法中分配 内存，而不必先检查是否在先前的调用中分配了内存 。