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 ?

[Dani]

Hi,

ich habs auch mal ausprobiert, kann aber keinen Unterschied des Verhaltens von zur Designzeit erstelleten Popup-Menus feststellen. Bei jedem Popup wird OnClick ausgelöst, egal ob man nur lange genug über dem Eintrag verharrt hat oder der Eintrag geklickt wurde. Vielleicht kann man das durch seinen eigenen Nachfahren von TPopupMenu korrigieren, aber damit kenn ich mich leider nicht aus

PS: Hoffe deine Frage richtig verstanden zu haben

Zitat:

aber nun wird dummerweise das OnClick-Ereignis an
stelle des Ausfahrens des Untermenüs ausgeführt.

Das Untermenü wurde bei mir schon ausgefahren...zumindest wenn da auch irgendwelche Items drin waren.

[shmia]

Delphi-Quellcode:

NewItem := NewSubMenu(Member[index].Name,0,'SubItem'+IntToStr(index),SubItem); 
NewItem.Tag := index;
// falsch 
NewItem.OnClick := PopupMenuItemsClick; 

// richtig (denk ich mal :-)
for i := Low(SubItem) to High(SubItem) do
   SubItem[i].OnClick := PopupMenuItemsClick;