转至繁体中文版　　　  | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告：     敏韬网|教学资源学习资料永久免费分享站！  [mintao  2008年9月2日]        
您现在的位置： 学习笔记 >> 图文教程 >> 软件开发 >> Delphi程序 >> 正文
让Delphi的DBGrid支持鼠标轮_开发者网络_Delphi    热     ★★★★

让Delphi的DBGrid支持鼠标轮_开发者网络_Delphi

作者：闵涛 文章来源：闵涛的学习笔记 点击数：677 更新时间：2009/4/23 18:25:00


　　现在的大多数的鼠标都有鼠标轮，比如，当我们浏览网页时，鼠标轮上下移动，网页就自动上下滚动。鼠标轮的确给我们的操作带来很多方便，但是，在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函数，

procedure WndProc(var Msg: TMessage);override;
　　我们在WndProc中捕获鼠标轮的消息，如下：

var

MousePoint:TPoint;

Handled:Boolean;

shift:TShiftState;

begin

if(Msg.Msg=WM_MOUSEWHEEL) then //捕获鼠标轮事件

begin

MousePoint.X:=LOWORD(Msg.lParam);

MousePoint.Y:=HIWORD(Msg.lParam);

Handled:=false;

if(Msg.wParam>0) then //上滚

fMouseWheelUp(self,shift,MousePoint,Handled)

else //下滚

fMouseWheelDown(self,shift,MousePoint,Handled);

fMouseWheel(self,shift,HIWORD(Msg.wParam),MousePoint,Handled);

if Handled then exit;

end;

inherited;

end;
　　这样，我们就基本可以处理鼠标轮事件了，编译我们的组件，然后选择菜单Components-Inatll Component,将我们的组件安装在Samples页下。

　　让我们来试验一下我们做的组件，新建一个应用，然后选择Samples下的MyDBGrid组件，其它的用法，和DBGRrid完全一样，但你可以看见，在你的MyDbGrid的事件中，已经有OnMouseWheel, OnMouseWheelUp, OnMouseWheelDown的选项了。



　　这样，你可以在OnMouseWheel, OnMouseWheelUp, OnMouseWheelDown中处理你的动作了，我们也完成了客户的要求，当客户移动鼠标轮时，我们在OnMouseWheelUp中加入相应代码，圆满解决了客户的要求。


没有相关教程
教程录入：mintao    责任编辑：mintao 
  • 上一篇教程：

  • 下一篇教程：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
    		•
    赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题，因而无法显示。
    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长：MinTao ICP备案号：鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网。A打造B、C、D……
    		咸宁网络警察报警平台