捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
给DBGrid添加鼠标滚动事件
关键字:DBGrid 鼠标 滚动事件 组件 MouseWheel
来 自:原创
平 台:Win9x,Win2k/NT 下载所需:0 火柴
深浅度:初级 完成时间:2004/11/14
发布者:cheng_hm2003 发布时间:2004/11/15
编辑器:DELPHI7 语  种:多语种
分 类:组件 下载浏览:173/11827
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名:
 密 码:
自动登陆(30天有效)
无图片
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids;

type
   TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
  private
   Procedure OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
//------------------------------------------------------------------------------
Procedure TForm1.OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);
begin
  if Msg.message = WM_MouseWheel then
  begin
    if Msg.wParam > 0 then
     begin
       if DBGrid1.Focused then
         SendMessage(DBGrid1.Handle,WM_VSCROLL,SB_PAGEUP,0);
     end
    else
     begin
       if DBGrid1.Focused then
         SendMessage(DBGrid1.Handle,WM_VSCROLL,SB_PAGEDOWN,0);
     end;
    Handled:= True;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Application.OnMessage:=OnMouseWheel; // 截获鼠标滚动事件
end;
Google
 
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
 相关文章
给DBGrid添加鼠标滚动事件
cheng_hm2003 2004/11/15 下+173/浏+11828 评+8
DBGrid3D (增加了鼠标滚轮的支持)
hongama 2004/7/17 下+1327/浏+13451 评+8
相关评论
共有评论8条 当前显示最后6条评论
czchawk 2004/11/16 13:59:11
我真的搞不明白,BORLAND公司怎么把这个东西也给忘记了。

害的我们要自己加代码。不知道现在的D6 、D7 有没有解决这个问题。
lcq419 2004/11/21 17:26:20
写的很好,我想问问,怎么进行
Windows编程,怎么定义,带消息或系统已定义的类型的过程或函数,我写时只会定义如整型了,字符串型 什么的,你是怎么学的呀,能不能给我介绍一下怎么学习,是不是要先学习VCL类什么的,还有,要看一些那方面的写,我现在只会组件编程。
jhwu 2004/11/26 16:15:50
从基础的学起,早一本系统点的书看看。跟着做做,先入门。
jhwu 2004/11/26 16:17:21
czchawk 9472  2004-11-16 13:59:11 
我真的搞不明白,BORLAND公司怎么把这个东西也给忘记了。

害的我们要自己加代码。不知道现在的D6 、D7 有没有解决这个问题。 

敢问你用的是正版吗?
chen_weiwei 2007/8/24 10:34:51
很好,很不错,请教我用了后,只能下向下滚动,不能向上滚动?为什么???
longwater 2007/12/24 10:35:35
我现在也需要这个 客户打印数据的时候要是用滚轮之后数据定位就全乱套了
BORLAND确实不改把怎么重要的事情给忘了
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2012 V3.01 沪ICP备05001939号 更新RSS列表