Maus-Tasten Status abfragen

[roderich]

hi Alle,

vielleicht hab ich gerade Tomaten auf den Augen, aber ich finde keinen Befehl, um den aktuellen Status der Maustasten abzufragen :(

So á lá GetCursorPos für die Position, nur halt mit ShiftState oder so.....

Roderich

[Markus K.]

Hallo roderich,
ich hoffe, dass ich dich richtig verstanden habe. Folgend kannst du prüfen, welche Maustaste gedrückt wurde (Bsp. für linke Maustaste).

Delphi-Quellcode:

if ssLeft in Shift then

Tschüß Markus

[roderich]

danke Markus, aber ich habe leider kein MouseDown-Event in dem ich Shift abfragen kann.
Nach dem was ich bisher gefunden habe, könnte ich auch WM_LBUTTONDOWN bzw. WM_LBUTTONUP im Formular abfangen. Nur hatte ich halt gehofft, daß ich drumrumkomme...

Roderich

[Tryer]

Über GetKeyState bzw. GetAsyncKeyState lassen sich auch die Maustasten abfragen:

Delphi-Quellcode:

if GetKeyState(VK_LBUTTON) < 0 then //gedrückt

MfG,
Tryer

[roderich]

Tryer, du bist klasse !

War genau das, was ich brauche

1000 Dank
Roderich