让Delphi的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)，表明各种虚拟键是否按下，有如下值：
  
  值 说明 MK_CONTROL 按下CTRL键 MK_LBUTTON 按下鼠标左键 MK_MBUTTON 按下鼠标中键 MK_RBUTTON 按下鼠标右键 MK_SHIFT 按下Shift键
  　　2.zDelta = (short) HIWORD(wParam)
  
  　　鼠标轮滚动的距离，如果向前则为正，向后为负。
  
  　　3. xPos ＝(short) LOWORD(lParam)
  
  　　　yPos＝(short) HIWORD(lParam)
  
  　　鼠标的位置。
  
  　　Delphi已经定义了两个和鼠标轮相关的事件，叫TmouseWheelEvent， TmouseWheelUpDownEvent，分别代表鼠标轮事件和鼠标轮上，下滚动事件。因此，我们先在TmyDbGrid中定义三个私有的事件变量：
  
  fMouseWheel:TMouseWheelEvent;
  
  fMouseWheelUp:TMouseWheelUpDownEvent; //鼠标轮上滚事件
  
  fMouseWheelDown: TMouseWheelUpDownEvent; //鼠标轮下滚事件
  　　然后定义publised中定义事件属性：
  
  property OnMouseWheel:TMouseWheelEvent read fMouseWheel write fMouseWheel;
  
  property OnMouseWheelUp:TMouseWheelUpDownEvent read fMouseWheelUp write fMouseWheelUp;
  
  property OnMouseWheelDown:TMouseWheelUpDownEvent read fMouseWheelDown write fMouseWheelDown;
  　　然后重载TDBGrid的WndProc函数，
  
  
• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 让Delphi的DBGrid支持鼠标轮 相关文章：
• ·让Delphi的DBGrid支持鼠标轮
• 让Delphi的DBGrid支持鼠标轮 相关软件

上一篇:浅谈Delphi中进程间的数据共享

下一篇:OpenGL简介

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐