Delphi自定義組件析構函數

Question

我不確定我的編碼是否正確，所以如果我錯了請更正。 我有一個圖像的自定義組件。

CustomPic = class(TPanel) 
private 
    Image : TImage; 
public 
    constructor Create(AOwner: TComponent); override; 
.... 
end; 

在我的構造我執行以下操作：

constructor CustomPic.Create(AOwner: TComponent); 
begin 
    Image := TImage.Create(Self); 
    Image.Parent := Self; 
    AddObject(Image); 
end 

這一切工作正常。但是，當我將自定義組件放在表單上並將alt + F12和alt + F12重新打回到表單中時，我的表單上有一個額外的圖像。我應該在我的析構函數中實現一些東西嗎？

Answer 1

副手，我沒有看到你顯示的代碼有什麼問題（雖然AddObject（）是什麼？）。 TImage由組件擁有，所以當組件被釋放時它將被自動釋放。如果您看到多個圖像，則必須創建多個組件。