Habs fertig:
Delphi-Quellcode:
for i1:=0 to AdvPopupOptionen.Items.Count-1 do begin
NewItem := TMenuItem.Create(self);
NewItem.Caption := AdvPopupOptionen.Items[i1].Caption;
NewItem.OnClick := AdvPopupOptionen.Items[i1].OnClick;
NewItem.ImageIndex := AdvPopupOptionen.Items[i1].ImageIndex;
AdvPopupMenuRechAnschrift.Items[i].Add(NewItem);
end;
Dachte es geht noch einfacher um die Einträge zu kopieren^^
[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]