Menues kopieren

[shmia]

Mit der Unit im Anhang ist es möglich, bestehende Menuzweige zu kopieren.
Es ist dabei gleichgültig, ob mit TMainMenu oder TPopupMenu gearbeitet wird.
Beispiel:

Delphi-Quellcode:

// kopiert das Popup-Menue unter einen leeren Menuezweig im Hauptmenue
procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyMenuItems(PopupMenu1.Items, Utilities1);
end;

Man sollte es mit dem Kopieren von Menues aber nicht übertreiben, sondern normalerweise mit ActionLists arbeiten.