tmainmenu - neuer unterpunkt zur laufzeit

[Tomsn]

Hallo Leute,

weiß jemand, wie man im Delphi-tmainmenu zu einem Menüpunkt, zur Laufzeit einen Unterpunkt erstellen kann?

Ich habe es schon geschafft, einen Menüpunkt zur Laufzeit hinzuzufügen, mit dem Programmcode:

Delphi-Quellcode:

var
  neuesitem: tmenuitem;

neuesitem := TMenuItem.Create(mainmenu1) ;
neuesitem.Caption := 'hallo';
mainmenu1.items.add(neuesitem);

Nun möchte ich jedoch einen Unterpunkt zu diesem Menüpunkt erstellen. Könnte mir da jemand helfen? ^^

[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;

[himitsu]

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.

[Tomsn]

Vielen Dank für die schnellen Antworten !
Jetzt geht's ^^