Saber si el ratón está pulsado o no  

Enviado Por: Regent Beaulieu
Web : N.A.
Email: rbeaulieu@voximage.com
Fecha: 18/04/01

Truco accedido 66 veces

 


Esto es útil para saber, dentro de un evento cuando el tipo sigue con el botón pulsado...
O por ejemplo, para abortar un bucle repetitivo en el que no se deja a nuestra aplicación que procese mensajes que generen los eventos que serian necesarios para parar dicho bucle y sin tener necesidad de ejecutar el temido Application.ProcessMessages... 



 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 begin
   {Mientras el ratón esté pulsado...}
   {While the mouse is pressed...}
   while HiWord(GetAsyncKeyState(VK_LBUTTON))<>0 do
     Caption:='Pulsado/Pressed';
   Caption:='No Pulsado / Released';
 end;