MouseUp in Popupmenu

[osbos]

Die MouseMessage abfangen habe ich auch schon versucht.
Mithilfe der ApplicationEvent Componente.

Delphi-Quellcode:

procedure TButVersForm.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
if msg.message=WM_LBUTTONUP then showmessage('UP');
end;

Das funktioniert bei allen Controls im Formular, aber nicht beim PopupMenu.
Vermutlich weil das aufgepopte Menu-Control kein Child des Hauptformulars ist, oder?
Gibt es noch eine Möglichkeit, alle Messages der Application abzufangen, egal welches Fenster/Control gemeint ist?

[himitsu]

Beim Application.OnMessage kommen ausschließlich PostMessage vorbei, welche in der Haupt-Messagebehandlung (TApplication.ProcessMessage und .HandleMessage) abgerufen und behandelt werden.
Auch SendMessage werden direkt im PeakMessage/GetMessage verarbeitet und kommen ebenfalls nichts bis zum OnMessage raus.
Und Form.WndProc bekommt auch nichts mit, da Menüs und Popups eigenständige Fenster sind.

Das Menu.Popup ist wie ein MessageBox, welches im Windows seine eigene Messageloop benutzt und das Hauptprogramm so lange stoppt.

Hier kommt man ausschlielich über einen MessageHook dran,
oder z.B. wenn man das Popup ableitet und sich ins WndProc hängt.

Mal die VCLStyles für's Popup aktivieren ... vielleicht hat Emba da bereits einen perversen passenden Hook implementiert und leitet ihn zur VCL (Application) um.

[ConnorMcLeod]

Mglw ist das hier ein Ansatz: ein alter Sourcecode vom echten Peter Below, der auf Github konserviert wurde. Die Idee ist erkennbar, für aktuelle Delphine muß das "nur" neu geschrieben werden.
Ich habe die Entsprechung in Vcl.Menus gefunden.