Hallo,
Ich hab zwar nach NewSubMenu gesucht,aber dummerweise nichts gefunden,
nja soll vor kommen
Ich erstelle zur Laufzeit ein Popupmenu mit
Delphi-Quellcode:
NewItem : TMenuItem;
SubItem : array of TMenuItem;
...
NewItem := NewSubMenu(Member[index].Name,0,'SubItem'+IntToStr(index),SubItem);
Member ist ein record mit mehreren Benutzereinstellungen, in den SubItems lade
ich die Webseiten der Benutzer.
Dies funzt soweit auch wunderbar !
Aber nun möchte ich dem Eintrag des Untermenüs im Hauptmenü
ebenfalls ein OnClick-Ereigniss zuweisen.
Also dachte ich:
Delphi-Quellcode:
NewItem := NewSubMenu(Member[index].Name,0,'SubItem'+IntToStr(index),SubItem);
NewItem.Tag := index;
NewItem.OnClick := PopupMenuItemsClick;
PopupMenu5.Items.Insert(2,NewItem);
aber nun wird dummerweise das OnClick-Ereignis an
stelle des Ausfahrens des Untermenüs ausgeführt.
Was kann man dagegen machen, oder wie bekomme ich ein Untermenü
dessen Haupteintrag im übergeordneten Menü ein OnClick-Erreigniss
hat ? Wenn's zur Entwurfszeit geht, muss das doch auch zur Laufzeit
machbar sein, oder ?