窗口 – 检测如果在表单显示之前已按下鼠标按钮

发布时间：2020-12-14 21:36:35 所属栏目：资源来源：网络整理

导读：如果按下鼠标按钮，并且显示窗口，当鼠标按钮被释放时窗口将接收到MouseUp事件。一旦显示窗口，是否可以检测到鼠标按钮是否已被按下？解决方法我会试试这个： procedure TForm1.FormShow(Sender: TObject);begin if GetKeyState(VK_LBUTTON) and $8000 0

如果按下鼠标按钮，并且显示窗口，当鼠标按钮被释放时窗口将接收到MouseUp事件。

一旦显示窗口，是否可以检测到鼠标按钮是否已被按下？

解决方法

我会试试这个：

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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!