Delphi：如何检查是否按下任何鼠标按钮 – 鼠标事件的外部？

发布时间：2020-12-15 09:34:59 所属栏目：大数据来源：网络整理

导读：我有一个TDrawGrid,想要处理单击一个单元格并使用鼠标滚轮略微不同地滚动单元格：当使用鼠标滚轮滚动时,视图将以所选单元格为中心,当只需单击一个单元格时,视图不会移动(因为这会令人困惑). 使用鼠标滚轮滚动会触发OnSelectCell事件.单击一个单元格FIRST将触

我有一个TDrawGrid,想要处理单击一个单元格并使用鼠标滚轮略微不同地滚动单元格：当使用鼠标滚轮滚动时,视图将以所选单元格为中心,当只需单击一个单元格时,视图不会移动(因为这会令人困惑).

使用鼠标滚轮滚动会触发OnSelectCell事件.单击一个单元格FIRST将触发OnSelectCell,然后触发OnMouseDown.所以我需要弄清楚OnSelectCell是否是通过鼠标点击触发的.最简单的方法(我能想到的)就是检查当前的鼠标按钮状态.

OnSelectCell没有任何TMouseButton或TShiftState参数.那么如何查询鼠标按钮状态呢？

使用GetKeyState传递VK_LBUTTON来标识主鼠标按钮.如果返回值为负,则当系统生成导致OnSelectCell事件被触发的输入消息时,该按钮将关闭.

（编辑：李大同）

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