tmainmenu - neuer unterpunkt zur laufzeit

[DeddyH]

Delphi-Quellcode:

var
  neuesitem, neuessubitem: tmenuitem;
begin
  neuesitem := TMenuItem.Create(mainmenu1) ;
  neuesitem.Caption := 'hallo';
  mainmenu1.items.add(neuesitem);
  neuessubitem := TMenuItem.Create(mainmenu1) ;
  neuessubitem.Caption := 'welt';
  neuesitem.Add(neuessubitem);
end;