Detectar si el botón del mouse ya está presionado antes de que el formulario muestre

Question

Si se presiona un botón del mouse y se muestra una ventana, esa ventana recibirá el evento MouseUp cuando se suelte el botón del mouse.

¿Es posible detectar, una vez que se muestra la ventana, si el botón del mouse ya está presionado o no?

Answer 1

me gustaría probar esto:

procedure TForm1.FormShow(Sender: TObject); 
begin 
    if GetKeyState(VK_LBUTTON) and $8000 <> 0 then 
    ShowMessage('Left mouse button is pressed...') 
    else 
    ShowMessage('Left mouse button is not pressed...') 
end; 

Answer 2

Para responder a su pregunta directamente, se puede probar para el estado de botón del ratón con GetKeyState o GetAsyncKeyState. El código de clave virtual que necesita es VK_LBUTTON.

La diferencia entre estos es que GetKeyState informa el estado en el momento en que el mensaje en cola activo actualmente se publicó en su cola. Por otro lado, GetAsynchKeyState le proporciona el estado en el instante en que llama al GetAsynchKeyState.

De la documentación de GetKeyState:

El estado de la clave de regresar de esta función cambiará de un hilo lee los mensajes clave de su cola de mensajes. El estado no refleja el estado de nivel de interrupción asociado con el hardware. Use la función GetAsyncKeyState para recuperar esa información. Una aplicación llama a GetKeyState en respuesta a un mensaje de entrada de teclado. Esta función recupera el estado de la clave cuando se generó el mensaje de entrada.

Sospecho que usted debe utilizar GetKeyState pero no se puede estar 100% seguro porque no sé realmente lo que está tratando de lograr con esta información.