德尔福：如何检查是否有任何鼠标按钮被按下 - 鼠标事件之外？

Question

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

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

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

Answer 1

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