Problem mit NewSubMenu

[MrKnogge]

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 ?