TMenuItem zur Laufzeit verschieben

[bernd2000]

Hi,

eine einfache Methode wie "MenuItem.Move" habe ich nicht gefunden.

Ich hab versucht das ganze mit einem Temporären MenuItem zu realisieren, aber das Problem dabei ist wenn ich das Temporäre Item mit "TempItem.Assign(MenuItem)" kopieren will, bekomme ich die Fehlermeldung "TMenuItem kann nicht zu TMenuItem hinzugefügt werden".
<br><br>
procedure MoveItem(Item1,Item2: TMenuItem);<br>
var<br>
TempItem: TMenuItem;<br>
begin<br>
TempItem := TMenuItem.Create(Item1.GetMainMenu.Owner);<br>
TempItem.Assign(Item1);<br>
Item2.Add(TempItem);<br>
Item1.Free;<br>
end;<br>

Gruß Bernd