Untermenü zur Laufzeit erzeugen

[Aike]

Ich habe es dann so gelöst:

Delphi-Quellcode:

for i:=0 to StringListe.Count-1 do
begin
  NeuesMenuItem := TMenuItem.Create(self);
  Inc(ItemCount);
  
  NeuesMenuItem.Name := 'Komponente_'+IntToStr(i);
  NeuesMenuItem.Caption := StringListe.Strings[i];
  PopUpUnterMenue.Add(NeuesMenuItem);
  NeuesMenuItem.Tag:=ItemCount;
  NeuesMenuItem.OnClick:=PopupItemClick;
end;