Rileva se il pulsante del mouse è già stato premuto prima che venga visualizzato il modulo

Question

Se viene premuto un pulsante del mouse e viene visualizzata una finestra, la finestra riceverà l'evento MouseUp quando viene rilasciato il pulsante del mouse.

È possibile rilevare, una volta visualizzata la finestra, se è già stato premuto o meno un pulsante del mouse?

Answer 1

vorrei provare questo:

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

Per rispondere direttamente alla tua domanda, è possibile verificare lo stato per il mouse con il tasto GetKeyState o GetAsyncKeyState. Il codice chiave virtuale necessario è VK_LBUTTON.

La differenza tra questi è che GetKeyState segnala lo stato nel momento in cui il messaggio in coda attualmente attivo è stato inviato alla coda. D'altra parte, GetAsynchKeyState ti dà lo stato nell'istante in cui chiami GetAsynchKeyState.

Dalla documentazione di GetKeyState:

Lo stato della chiave tornato da questa funzione cambia come un filo legge i messaggi chiave dalla sua coda di messaggi. Lo stato non riflette lo stato a livello di interrupt associato all'hardware. Utilizzare la funzione GetAsyncKeyState per recuperare tali informazioni. Un'applicazione chiama GetKeyState in risposta a un messaggio di input da tastiera. Questa funzione recupera lo stato della chiave quando il messaggio di input è stato generato.

Ho il sospetto che si dovrebbe utilizzare GetKeyState ma non posso essere sicuro al 100%, perché io in realtà non so cosa si sta cercando di raggiungere con queste informazioni.