[Komponentenentwicklung] Problem mit Subkomponenten

[Sunlight7]

Und welche Richtung?

Oder meinst Du so etwas?

Delphi-Quellcode:

type
  TMyControl = class(TCustomControl)
  private
    MySubControl:TCustomControl;
  public
    constructor Create(AOwner:TComponent); override;
    destructor Destroy; override;
  end;

...

constructor TMyControl.Create(AOwner:TComponent);
begin
   inherited Create(AOwner);

   Width:=100;
   Height:=100;
   Color:=clRed;

   MySubControl:=TCustomControl.Create(Self);
   With MySubControl do begin
      Parent:=Self;
      Brush.Color:=clLime;
      SetBounds(25, 25, 50, 50);
      Visible:=True;
   end;
end;

destructor TMyControl.Destroy;
begin
   MySubControl.Free;

   inherited Destroy;
end;

PS: TGraphicControl kann nicht als Parent verwendet werden (korrigiert mich falls das nicht stimmt)
MySubControl könnte aber eine TGraphicControl ableitung sein.