让Delphi的DBGrid支持鼠标轮 | ||||||||||||||||
| ||||||||||||||||
关键词:DBGRID 鼠标轮 | ||||||||||||||||
现在的大多数的鼠标都有鼠标轮,比如,当我们浏览网页时,鼠标轮上下移动,网页就自动上下滚动。鼠标轮的确给我们的操作带来很多方便,但是,在Delphi的大多数控件中都只支持 MouseDown,MouseUp,MouseMove等事件,而不直接支持MouseWheel事件,我们在帮助客户设计一个查看程序时就碰到这样的问题。这个查看程序的数据是放在一个DBGrid中的,数据比较多,超出整个屏幕,如果用鼠标轮上下移动,则DBGrid的光标只在可见范围内移动,超出屏幕的数据必须用键盘或右侧的滚动条,给用户造成极大不方便,客户强烈要求支持鼠标轮操作。但是查看DBGrid的事件属性没有对鼠标轮的支持,怎么办呢? 我们知道,Windows操作系统是消息驱动的,因此,如果鼠标轮上下滚动,必然会有相应的事件发生,经过查找资料,我们得知当鼠标轮上下滚动时发生的是WM_MOUSEWHEEL事件,既然这样,我们如果捕获这个事件,不就可以处理鼠标轮事件了吗? 说干就干,那就让我们来为DBGrid增加一个onMouseWheel事件,制作一个支持鼠标轮的新的DBGrid组件。 让我们新建一个应用,就叫MyDBGrid吧,选择菜单File-New Application,然后再选择菜单File-New-Component ![]() 因为我们的新组件是从DBGrid继承的,所以,Ancestor Type选择 TDBGrid,Class Name就填我们的组件名称TmyDbGrid,生成的组件放在Samples页,点击OK,则组件的框架就生成了。 现在我们开始做最关键的部分。当鼠标轮上下滚动时,发出了WM_MOUSEWHEEL消息,MOUSEWHEEL消息有几个参数, 1.fwKeys= LOWORD(wParam),表明各种虚拟键是否按下,有如下值:
2.zDelta = (short) HIWORD(wParam) 鼠标轮滚动的距离,如果向前则为正,向后为负。 3. xPos =(short) LOWORD(lParam) yPos=(short) HIWORD(lParam) 鼠标的位置。 Delphi已经定义了两个和鼠标轮相关的事件,叫TmouseWheelEvent, TmouseWheelUpDownEvent,分别代表鼠标轮事件和鼠标轮上,下滚动事件。因此,我们先在TmyDbGrid中定义三个私有的事件变量:
然后定义publised中定义事件属性:
然后重载TDBGrid的WndProc函数,
我们在WndProc中捕获鼠标轮的消息,如下:
这样,我们就基本可以处理鼠标轮事件了,编译我们的组件,然后选择菜单Components-Inatll Component,将我们的组件安装在Samples页下。 让我们来试验一下我们做的组件,新建一个应用,然后选择Samples下的MyDBGrid组件,其它的用法,和DBGRrid完全一样,但你可以看见,在你的MyDbGrid的事件中,已经有onMouseWheel, onMouseWheelUp, onMouseWheelDown的选项了。 ![]() 这样,你可以在onMouseWheel, onMouseWheelUp, onMouseWheelDown中处理你的动作了,我们也完成了客户的要求,当客户移动鼠标轮时,我们在onMouseWheelUp中加入相应代码,圆满解决了客户的要求。 | ||||||||||||||||
|
让Delphi的DBGrid支持鼠标轮
最新推荐文章于 2019-09-09 09:31:00 发布