Untermenü zur Laufzeit erzeugen

[eddy]

Hallo alexander & Tom,

vielen Dank für Eure Hilfe. Doppelt hält besser und letzt endlich habe auch ich es geschnallt.

Ein Menüpunkt wird automatisch zur Gruppe, wenn man den nächsten Menüpunkt dort hineinlegt.

Hier noch mein auf Euren Anweisungen basierender Testcode:

Delphi-Quellcode:

procedure TFTermin.BitBtn1Click(Sender: TObject);
var
  NeuesMenuItem,
  NeuesSubmenue : TMenuItem;
begin
  //Gruppe hallo anlegen
  NeuesSubmenue := TMenuItem.Create(self);
  NeuesSubmenue.Name := 'hallo1';
  NeuesSubmenue.Caption := 'hallo';
  // test2 vorhandener Menüpunkt TMenuItem
  test2.Add(NeuesSubmenue);

  //Menüpunkt hallo2 anlegen
  NeuesMenuItem := TMenuItem.Create(self);
  NeuesMenuItem.Name := 'hallo2';
  NeuesMenuItem.Caption := 'hallo eins tiefer';
  NeuesSubmenue.Add( NeuesMenuItem );
end;

mfg
eddy

[edit=Daniel B]Delphi-Tags eingefügt. Mfg, Daniel B[/edit]