Delphi开发之:在DBGrid中用Mouse滚动键滚动记录

原创 2006年06月24日 09:42:00

首先在Unit的 private中写一过程OnMouseWheel。如下:
private
    { Private declarations }
        procedure OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);

 

接着,实现OnMouseWheell过程的代码如下:

Procedure TDeptfrm.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;

以上代码需要更改DBGrid1为你所命名的DBGrid的Name

最后,在FormCreate上来调用以上方法

procedure TDeptfrm.FormCreate(Sender: TObject);
begin
  Application.OnMessage:=OnMouseWheel;
end;

 

完成以上操作,再运运行你的程序,看看结果对不对?

相关文章推荐

判断DBGrid是否有滚动条

  • 2011年11月11日 16:45
  • 383KB
  • 下载

同步两个DBGrid的水平滚动条

  • 2014年08月19日 15:57
  • 390KB
  • 下载

python中用logging实现日志滚动和过期日志删除

之前听说python的logging库很好用,自带滚动和过期删除的功能,今天捣鼓了一下,并将自己捣鼓的过程记录下来。...

opencv中用滚动条来控制二值化

一,上效果图 二,上代码 #include using namespace cv; //需求:用滚动条来控制二值化 IplImage* src; IplImage* dst; c...

delphi 文字滚动显示

  • 2013年07月18日 15:53
  • 194KB
  • 下载

delphi制作字幕滚动窗体.rar

  • 2012年02月26日 21:27
  • 181KB
  • 下载

Delphi TScrollBar 用于滚动窗口、组件内容

 滚动条组件(TScrollBar)此组件是一个Windows滚动条,用于滚动窗口、组件内容。许多控制有滚动条属性,它们把滚动条作为自己的一部分,对于没有完整滚动条的控制,TScrollBar组...

delphi去除webbrowser滚动条的正确方法(流传的都不对)

今天乱翻论坛,回答了一个网友的问题。 http://topic.csdn.net/u/20101006/08/a372ebf1-838e-4653-a7f7-517fac560f47.html?se...
  • t1122
  • t1122
  • 2012年04月11日 11:29
  • 1363

DELPHI 学习----滚动的球

  • 2012年12月04日 16:14
  • 3KB
  • 下载

如何让DELPHI标题滚动的代码

  • 2010年08月06日 11:56
  • 160KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi开发之:在DBGrid中用Mouse滚动键滚动记录
举报原因:
原因补充:

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