Rob*_*bin 4 delphi delphi-2007
我有一个TDrawGrid,想要处理单击一个单元格并使用鼠标滚轮略微不同地滚动单元格:当使用鼠标滚轮滚动时,视图将以所选单元格为中心,当只需单击一个单元格时,视图不会移动(因为这会令人困惑).
使用鼠标滚轮滚动会触发OnSelectCell事件.单击一个单元格FIRST将触发OnSelectCell,然后单击OnMouseDown.所以我需要弄清楚是否OnSelectCell由鼠标点击触发.最简单的方法(我能想到的)就是检查当前的鼠标按钮状态.
OnSelectCell没有任何TMouseButton或TShiftState参数.那么如何查询鼠标按钮状态呢？
使用GetKeyState传递VK_LBUTTON来标识主鼠标按钮.如果返回值为负,则在系统生成导致OnSelectCell事件被触发的输入消息时按钮关闭.
| 归档时间： |
|
| 查看次数： |
2069 次 |
| 最近记录： |