Обнаружить, если кнопка мыши уже нажата до отображения формы

Question

Если нажата кнопка мыши, и окно будет показано, что окно будет получать событие MouseUp при отпускании кнопки мыши.

Возможно ли, как только окно будет показано, можно ли определить, нажата ли кнопка мыши или нет?

Answer 1

Я хотел бы попробовать это:

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

Чтобы ответить на ваш вопрос прямо, вы можете проверить состояние кнопки мыши с GetKeyState или GetAsyncKeyState. Необходимый код виртуального ключа: VK_LBUTTON.

Разница между ними заключается в том, что GetKeyState сообщает о состоянии в то время, когда текущее сообщение с активной очередью было отправлено в очередь. С другой стороны, GetAsynchKeyState дает вам состояние в тот момент, когда вы звоните GetAsynchKeyState.

Из документации GetKeyState:

Ключа статуса вернулся из этой функции изменяется как поток считывает ключевые сообщения из своей очереди сообщений. Состояние не отражает состояние уровня прерывания, связанного с оборудованием. Используйте функцию GetAsyncKeyState для получения этой информации. Приложение вызывает GetKeyState в ответ на сообщение ввода с клавиатуры. Эта функция извлекает состояние ключа при генерации входного сообщения.

Я подозреваю, что вы должны использовать GetKeyState, но я не могу быть уверен на 100%, потому что я на самом деле не знаю, что вы пытаетесь достичь с помощью этой информации.