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

Question

我有一个 TDrawGrid 并且想要处理单击单元格和使用鼠标滚轮滚动单元格的处理方式略有不同：当使用鼠标滚轮滚动时，视图应以所选单元格为中心，当只需单击一个单元格时，视图不应移动（因为那会令人困惑）。

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

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

Answer 1

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