检测在表单显示之前是否已按下鼠标按钮

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% 确定，因为我实际上并不知道您想用此信息实现什么目的。