Innerhalb einer Form alle Mouseclicks abfangen

[Sharky]

Hai ihr,

gibt es eine Möglichkeit alle Mausklicks in meiner Form abzufangen und je nach Situation darauf zu reagieren.

Genau möchte ich folgendes erreichen.
Wenn mein Programm mit einem bestimmten Parameter gestartet wurde und bei gedrückter Ctrl-Taste auf ein Object (Label, Button, Gourpbox usw. also alles was eine Caption hat) geklickt wird soll eine bestimmte Aktion durchgeführt werden.
Wenn die Ctrl-Taste nicht gedrückt ist soll der Mausklick einfach an die Komponente weitergeleitet werden und von dieser bearbeitet werden.

Ich hoffe ich konnte einigermassen erklären was ich machen möchte.


P.S.: Ich könnte natürlich für alle "beteiligten" ein entsprechendes OnClick erzeugen. Aber ich würde es halt gerne mal auf diese Weise versuchen.

[Vjay]

Hey,

hast du es schon über TApplication.OnMessage versucht?

Ansonsten sollte dies über SetWindowsHookEx möglich sein.

Gruss

[Sharky]

Hai Vjay,

danke für den Ratschlag. Jetzt müsste ich nur noch wissen welche Message ich für einen klick mit der linken Maustaste abfragen muss. *g* Ich und API-Zeugs. Zwei Welten treffen auf einander.

[marabu]

Hallo Sharky,

WM_LBUTTONUP
WM_RBUTTONDOWN
WM_MBUTTONDBLCLK

und ihre Ergänzungen dürften die Messages sein, die du suchst. Wenn du die Quelle der Unit Controls einsehen kannst, dann dort bei TControl nachsehen. Oder im Win32 SDK unter Mouse Input Messages.

Grüße vom marabu

[Sharky]

Hai marabu,

danke für die schnelle Antwort. WM_LButtonDown hatte ich gefunden. Aber ich Dummhai habe nicht Msg.Message ausgewertet sondern Msg.lParam

Aber jetzt geht es schon einmal so wie ich es mir vorstelle