Feststellen ob Maustaste gerade gedrückt wird

[shmia]

Zitat von Tubos:

Gibt es eine Möglichkeit, den aktuellen Status der linken Maustaste (gedrückt, nicht gedrückt) zu ermitteln?

Delphi-Quellcode:

   if (GetAsyncKeyState(VK_LBUTTON) and $8000) > 0 then
      Caption := 'Mouse button down'
   else
      Caption := 'Mouse button Up';