Delphi:如何检查是否按下了任何鼠标按钮 - 在鼠标事件之外？

Question

我有一个 TDrawGrid，并且想要处理单击单元格并使用鼠标滚轮滚动单元格的处理方式略有不同:使用鼠标滚轮滚动时， View 应以选定的单元格为中心，当只需单击单元格时， View 应以选定的单元格为中心 View 不应移动(因为这会令人困惑)。

使用鼠标滚轮滚动会触发 OnSelectCell 事件。单击单元格首先触发 OnSelectCell，然后触发 OnMouseDown。所以我需要弄清楚 OnSelectCell 是否是由鼠标点击触发的。最简单的方法(我能想到的)是检查当前的鼠标按钮状态。

OnSelectCell 不附带任何 TMouseButton 或 TShiftState 参数。那么如何查询鼠标按钮状态呢？

Answer 1

使用 GetKeyState 传递 VK_LBUTTON 来识别主鼠标按钮。如果返回值为负数，则当系统生成导致触发 OnSelectCell 事件的输入消息时，按钮处于按下状态。