TadvMainMenu

[Walter Landwehr]

Hallo,

Kann mir einer sagen wie ich zur Laufzeit Untermenü punkte im TadvMain Menu erzeuge.

Delphi-Quellcode:

  AdvMenu.BeginUpdate;
  While not BausteineQry.Eof do
  begin
     item := TMenuItem.Create(Self);
    Item.Caption := BausteineQry.FieldByName('Suchwort').AsString;
    Item.OnClick := InsertTextbaustein;
    AdvMenu.Items[3].Insert(7,Item); ----------> Hier musß ein Problem sein
    BausteineQry.Next;
  end;
  AdvMenu.EndUpdate;

Der obige Code fügt zwar Menuüunkte ein abder keine Submenüs.

Vielen Dank schon mal für die Hilfe.