Danke an Alfi001 und oki. Habe es so gemacht, wie oki das vorgeschlagen hat und es funktioniert.
Das mit dem result = Komponente hatte ich bei Ray Konopka´s Tutorial für Composite Controls gesehen und bei der Initialisierung von Komponenten funktioniert es eigentlich sehr gut.
Hier mal ein paar andere Beispiele aus meinem Quellcode, die funktionieren. Kannte eine derartige Initalisierungsweise auch nicht, aber funzt gut.
Delphi-Quellcode:
function TContainer.CreateLabel(PosX, PosY, Textgroesse: integer; Text: string): TLabel;
begin
result := TLabel.Create(Self);
result.Parent := Self;
result.Left := PosX;
result.Top := PosY;
result.Caption := Text;
result.Font.Height := Textgroesse;
end;
function TContainer.CreateTrackBar(PosX,PosY, Width, Height:integer): TMouseTrackBar;
begin
result := TMouseTrackbar.Create(Self);
result.Parent := Self;
result.Left := PosX;
result.Top := PosY;
result.Height := Height;
result.Width := Width;
result.Max := 640000;
result.Position := 320000;
result.OnChange := TrackBarBewegung;
end;
procedure TContainer.CreateWnd;
begin
inherited createWnd;
FLblContainerCaption := CreateLabel(18,10, 18,'Tischsteuerung');
FTrckBarTischposition := CreateTrackBar(50,420,230,20);
end;
Dachte solche Funktionen sollten eigentlich auch für die Add-Methode der ComboBox funktionieren, aber dies ist anscheinend nicht der Fall.