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

Question

我有一个TDrawGrid，想要处理单击一个单元格并使用鼠标滚轮略微不同地滚动单元格：当使用鼠标滚轮滚动时，视图将以所选单元格为中心，只需单击一个单元格，视图不得移动（因为这会让人感到困惑）。

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

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

Answer 1

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