Falls man es noch etwas umsortieren möchte, damit die Zeilenanfänge nicht so rurcheinander wirken.
(aber wenn man mehrere Items hinzufügen möchte, ist es wie obe auch nicht schlecht,)
Delphi-Quellcode:
neuessubitem := TMenuItem.Create(mainmenu1) ;
neuessubitem.Caption := 'welt';
neuesitem := TMenuItem.Create(mainmenu1) ;
neuesitem.Caption := 'hallo';
neuesitem.Add(neuessubitem);
mainmenu1.items.add(neuesitem);
Delphi-Quellcode:
neuesitem := TMenuItem.Create(mainmenu1) ;
neuesitem.Caption := 'moin,';
mainmenu1.items.add(neuesitem);
neuesitem := TMenuItem.Create(mainmenu1) ;
neuesitem.Caption := 'hallo';
mainmenu1.items.add(neuesitem);
neuessubitem := TMenuItem.Create(mainmenu1) ;
neuessubitem.Caption := 'welt';
neuesitem.Add(neuessubitem);
neuessubitem := TMenuItem.Create(mainmenu1) ;
neuessubitem.Caption := 'immernoch';
neuesitem.Add(neuessubitem);
neuessubitem := TMenuItem.Create(mainmenu1) ;
neuessubitem.Caption := 'da?';
neuesitem.Add(neuessubitem);
Die Lösung aber nochmal kurz genannt, falls es jemand mal nicht erkennen sollte.
> Menü-Item erstellen
> und dann über {menu}.Items.Add dem Manü oder über {item}.Add einem Item oder {menu}.Item[0].Add dem ersten Item hintzfügen/unterordnen.