Im "OnClick" eines Buttons erkennen, ob es per Maus erfolgte

[daddy]

@Apollonius, @AndreasH:

Mit (GetAsyncKeyState(VK_LBUTTON) = VK_LBUTTON) kann ich tatsächlich erkennen, dass die linke Maustaste gedrückt wurde. Allerdings erkenne ich nicht, wann dies geschah. Das heißt, wenn ich irgendwo mit der Maus hinklicke und anschließend meinen Button per Tastatur betätige, liefert mir diese Abfrage "true" zurück, obwohl ich den Button gar nicht per Maus betätigt habe. Das liegt daran, das "GetAsyncKeyState" als Ergebnis liefert, ob eine bestimmte Taste gedrückt wurde, NACHDEM "GetAsyncKeyState" das letzte mal aufgerufen wurde. Ich komme also auch hier nicht drum herum etwas zu programmieren, wodurch "GetAsyncKeyState" immer wieder initialisiert wird.

Trotzdem danke für den Hinweis. Es scheint ja wohl so zu sein, dass Delphi für diese einfache Abfrage nichts vorsieht. Also muss ich evtl. die entscheidende Stelle in der VCL suchen und sehen, ob ich dort selber etwas einfügen kann.

Gruß, Daddy

PS: Falls doch noch jemand eine andere Idee hat ...