解决DBGrid中关于鼠标滚轮的一种方法。

原创 2004年08月06日 17:51:00

解决DBGrid的鼠标滚动的方法
1. Add in .h file:

private: // 添加声明
void __fastcall (__closure *OldProc)(Messages::TMessage &Message);
void __fastcall NewProc(TMessage &Message);

 

2. Add in .cpp file:
// 添加以下语句到OnFormCreate事件中
OldProc = DBGrid1->WindowProc;
DBGrid1->WindowProc = NewProc;

 

void __fastcall TForm1::NewProc(TMessage& Message)
{
  if (Message.Msg == WM_MOUSEWHEEL)
  {
    int z = GET_WHEEL_DELTA_WPARAM(Message.WParam);
    Message.Msg = WM_VSCROLL;
    if (z > 0)
      Message.WParam = SB_LINEUP;
    else
      Message.WParam = SB_LINEDOWN;
  }
  OldProc(Message);
}

[愿创]让DBGrid支持鼠标滚轮浏览数据,及去除垂直滚动条!

      DBGrid一直都不支持鼠标中键滚动,有时候想要去除水平滚动条,让我们自己动手制作一个自定义的DbGrid组件吧!      代码如下:unit AddMsgDBGrid;interfac...
  • gencheng
  • gencheng
  • 2007-04-07 20:19:00
  • 2757

Delphi中的DBGrid如何实现使用鼠标滚轮上下滚动

首先,往窗体上加入一个ApplicationEvents组件,此组件位于additional选项卡内。 然后重写appliEvents组件的OnMessage方法: procedure TFo...
  • li272355201
  • li272355201
  • 2013-09-29 17:21:27
  • 1543

让VB开发环境支持鼠标滚轮

        Visual Basic 6.0的集成开发环境中的代码编辑器不支持鼠标滚轮的操作,这给使用VB的人带来了很多不便,为了使它能支持鼠标滚轮操作,我制作了一个小程序帮它实现该功能。    ...
  • yfzhu
  • yfzhu
  • 2006-03-03 09:00:00
  • 925

解决DBGrid中关于鼠标滚轮的一种方法。

解决DBGrid的鼠标滚动的方法1. Add in .h file:private: // 添加声明void __fastcall (__closure *OldProc)(Messages::TMe...
  • ktcserver
  • ktcserver
  • 2004-08-06 17:51:00
  • 1092

<em>DBGrid</em>3D (增加了鼠标<em>滚轮</em>的<em>支持</em>)

举报人: 被举报人: chenxh 举报的资源分: 3 *类型: *详细原因: 取  消 提  交 <em>DBGrid</em>3D (增加了鼠标<em>滚轮</em>的<em>支持</em>) 3积分 立即下载 ...
  • 2018年04月13日 00:00

将DBGrid中的数据快速导出到Excel的控件

  • 2008年01月07日 17:21
  • 16KB
  • 下载

DELPHI的DBGrid组件属性介绍

DBGrid.是以表格方式显示、编辑数据表中数据的组件,是Delphi中最常用的数据编辑组件, 其常用属性与方法如下:     1.常用属性     (1)Columns属性     该属性用于设置D...
  • htao33
  • htao33
  • 2011-07-27 16:53:57
  • 4537

让Delphi的DBGrid支持鼠标轮

让Delphi的DBGrid支持鼠标轮 ...
  • uudelphi
  • uudelphi
  • 2006-05-17 00:20:00
  • 1184

DELPHI<em>支持</em>鼠标<em>滚轮</em>的<em>DBGRID</em>(可定义滚动及上下滚动事件)

DELPHI<em>支持</em>鼠标<em>滚轮</em>的<em>DBGRID</em>(可定义滚动及上下滚动事件) 2011-09-28 上传大小:1KB DELPHI鼠标<em>滚轮</em>滚动事件 1.鼠标的<em>滚轮支持</em>,即可以直接<em>支持</em>鼠标上下滚动 2.向上...
  • 2018年04月14日 00:00

DBGrid 使用大全

在 Delphi 语言的数据库编程中,DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实,我们完全可以在我们的程序中通过编程来达到美化DBGrid ...
  • zisongjia
  • zisongjia
  • 2017-03-06 18:05:50
  • 798
收藏助手
不良信息举报
您举报文章:解决DBGrid中关于鼠标滚轮的一种方法。
举报原因:
原因补充:

(最多只允许输入30个字)