CreateWnd ComboboxItems hinzufügen

[BAMatze]

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.