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

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;