Delphi-Quellcode:
case Msg.message of
WM_CONTEXTMENU:
Beep;
WM_INITMENU:
Beep;
WM_INITMENUPOPUP:
Beep;
WM_MENUSELECT:
Beep;
WM_MENUCHAR:
Beep;
WM_MENUCOMMAND:
Beep;
WM_COMMAND:
Beep;
WM_ENTERMENULOOP:
Beep;
WM_EXITMENULOOP:
Beep;
WM_GETTITLEBARINFOEX:
Beep;
WM_MENUDRAG:
Beep;
WM_MENUGETOBJECT:
Beep;
WM_MENURBUTTONUP:
Beep;
WM_NEXTMENU:
Beep;
else
Beep;
end;
Überall ein Haltepunkt rein (außer beim Else, denn aufgrund der Masse hatte ich jetzt noch keine Zeit mich da reinzukämpfen, da dort ja nahezu alles von der Anwendung vorbei kommt)
und das Einzige, wo es bisher anhielt, war das WM_CONTEXTMENU.
Hängt am TApplicationEvents.OnMessage
[edit] Auch im DefaultHandler der Komponente, mit dem Einkabefokus (ActiveControl), kommt nur das CONTEXTMENU vorbeigehoppelt.