加載程序

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方法中分配 內存，而不必先檢查是否在先前的調用中分配了內存 。