0

コーディングが正しいかどうかわからないので、間違っている場合は修正してください。画像を持つカスタム コンポーネントがあります。

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 を押してフォームに戻すと、フォームに余分な画像が表示されます。デストラクタに何かを実装する必要がありますか?

4

1 に答える 1