Popupmenu TMenuItem Rechtsklick

[Shark99]

Ich will ein PopupMenu bei dem man einen Eintrag auch rechtsklicken kann. Es wird dann eine andere Funktion ausgeführt als beim Linksklick.

Die Googlesuche brachte nicht wirklich was brauchbares.

Hier gibt es Code für ein RCPopupmenu. http://stackoverflow.com/questions/1...enu-item-click

Das Problem ist dass es nicht richtig funktioniert. Ich bekomme beim Rechtsklick ein anderes MenuItem als das welches angeklickt wurde. Liegt wohl daran dass ich in OnPopup die meisten Menuitems dynamisch erzeuge und die Komponente damit nicht zurecht kommt. edit: die richtige Position bekomme ich wenn ich diese um die Anzahl der unsichtbaren Elemente bis zu dieser Position erhöhe. Ein großes Problem bleibt aber. Submenus werden komplett ignoriert.

Dann bleibt noch das Problem dass ich beim Rechtsklick das Popupmenu wieder manuell schließen muss. Durch Google kam ich auf SendMessage(PopupList.Window, WM_CANCELMODE, 0, 0); welches jedoch auch nicht funktioniert. Ich nutze Delphi 2009.

Danke im Voraus!