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.