CreateWnd ComboboxItems hinzufügen

[BAMatze]

Guten Morgen an alle DPler,

Habe eine Frage zu der Combobox bei selbstgeschriebenen Komponenten. Mir ist definitiv klar, dass man die Items einer Combobox in der CreateWnd-Funktion hinzufügt. Der übersichtlichkeithalber wollte ich dies allerdings in einer gesonderten Funktion machen. Hier ergeben sich jetzt allerdings Probleme, die ich darauf erstmal zurückführe, dass in der gesonderten Funktion kein Wnd-Handle verfügbar ist.

Jetzt zu meiner Frage: Gibt es eine Möglichkeit wie ich das befüllen der Combobox in einer gesonderten Funktion/ Prozedur schreiben kann?

Hier meine Ansätze, die ich gemacht hab:

Delphi-Quellcode:

function TContainer.SetItemsComboBox: TCombobox;
var sErweiterung: string;
    Index: integer;
begin
  //result.Clear;
  Index := GetIndex;
  if Index in [1,2] then sErweiterung := 'µm'
  else sErweiterung := 'nm';
// Der hierunter stehende auskommentierte Bereich führt zu einer Fehlermeldung! Es wird davon ausgegangen, dass das Wnd-Handle
// bei dem Funktionsaufruf nicht mit übergeben werden kann in der CreateWnd-Procedure
  {result.Items.Add('5 '+ sErweiterung);   // hier tritt ein unbekannter Fehler auf!! unklar, woher.
  result.Items.Add('20 ' + serweiterung);
  result.Items.Add('100 ' + sErweiterung);
  result.Items.Add('500 ' + sErweiterung);
  result.Items.Add('1000 ' + sErweiterung);
  result.Items.Add('5000 ' + sErweiterung);
  result.ItemIndex := ftTischInfo[GetIndex].iSchrittweitenIndex;   }
end;

procedure TContainer.CreateWnd;
begin
  inherited createWnd;
  FCombBoxTischauswahl := CreateComboBox(17,35, 200);
// Die folgende Initialisierung von Items für eine andere Combobox funzt hier
  FCombBoxTischauswahl.Items.Add('Verschiebetisch Kamera/ Spleißgerät');
  FCombBoxTischauswahl.Items.Add('Verschiebetisch Referenzfaser');
  FCombBoxTischauswahl.Items.Add('Piezoverschiebetisch');
  FCombBoxTischauswahl.ItemIndex := 0;
  FCombBoxTischauswahl.OnChange := Tischaenderung;
  FComboBoxStepWidth := CreateComboBox(130,375,70);
  FComboBoxStepWidth := SetItemsComboBox;
end;

Vielen Dank
BAMatze