Popupmenu TMenuItem Rechtsklick

[jaenicke]

Diese Unit funktioniert bei mir problemlos:
http://www.delphipages.com/forum/sho...d.php?t=180337
(einfach Rechtsklick auf das Formular)

Siehe Anhang

[Shark99]

Das ist doch exakt der gleiche Code den ich im ersten Post beschrieben hab.

Er hat zwei Probleme.

1. Sobald bei einem Item Visible = False ist passt die Zuordnung nicht mehr. Das Problem habe ich behoben.
2. Es funktioniert nicht wenn das Popupmenu ein Submenü hat (im Submenü kann nichts rechtsgeklickt werden).

[jaenicke]

Ok, habe ich nicht mehr auf dem Schirm gehabt...
Ich habe den Code kurz korrigiert, siehe Anhang...
Nicht schön, funktioniert aber...

[Shark99]

Hab dein Beispielprojekt eben getestet und es funktioniert nicht. Wenn ich im sd-Untermenü auf einen der Einträge rechtsklicke passiert nichts.

[jaenicke]

Ich habe die Einträge mal richtig benannt und diesmal die Exe mit reingepackt. Nicht dass es an der Windowsversion liegt. Wenn es bei dir mit der Exe geht, muss es an Delphi 2009 liegen. Das habe ich noch in einer VM, teste ich grad.

// EDIT:
Funktioniert bei mir mit Delphi 2009 wie mit XE8 und mit XP wie mit 8.1 und 10.

// EDIT2:
Siehe:
PopupmenüRechtsklick.png

[Shark99]

Beim neuesten Beispiel ist eine Zeile anders zu dem zuvor:

http://i.imgur.com/0Vfi4We.png

und es funktioniert!

Danke sehr!

[jaenicke]

Zitat von Shark99:

Beim neuesten Beispiel ist eine Zeile anders zu dem zuvor:

Ja, ich habe aus Routine die Compilerwarnung beseitigt. Bei mir ging es allerdings schon vorher, aber das war dann wohl Zufall.

Hauptsache es geht nun.

Nebenbei (auch für spätere Leser):
Wenn du so etwas debuggst, hilft der Window Detective sehr. Der zeigt nicht nur die Fenster der Anwendung an, sondern erlaubt es auch die Messages anzuzeigen, die an die Fenster geschickt werden.

Deshalb habe ich gesehen, dass die Message durchaus auch im Untermenü an das gleiche Fenster geschickt wird und musste nur noch debuggen warum sie nicht benutzt wird.