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.