Delphi Component
Delphi 2009. Jeg har skrevet kode til en komponent, der består af 2 TPanel kontroller (bemærk, at TPanel er en container), der "overlapper" hinanden.Type
TPan2 = Class(TPanel)
End;
type
TPan1 = class(TPanel)
.
.
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
.
.
constructor TPan1.Create(AOwner: TComponent); { Efter implementation }
begin
inherited Create(AOwner); //Parent
Pan2:=TPan2.Create(Self); //Child
Pan2.Parent:=Self; //Hvis dette undlades vises Pan2 IKKE !!
Init;
end;
destructor TJSForm.Destroy;
begin
Pan2.Free;
inherited;
end;
Pan2 overlapper Pan1 (Pan2.Parent:=Self betyder vel at Pan1 "ejer" Pan2). Hvis jeg smider en komponent på Pan1 virker alt fint, men hvis jeg gør det på Pan2 - "forsvinder" (= vises ikke) den, når programmet køres!!!!!
Hvorfor?