给DBGrid添加鼠标滚动事件

转载 2012年03月22日 11:02:59
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;

重写鼠标滚轮事件阻止滚动条冒泡

遇到一个问题,页面和子页面同时存在滚动条,在鼠标滚轮时候,会冲突:子页滚动条到顶部或者底部时候会继续冒泡,去滚动父节点的滚动条。 解决这个问题,必需要拦截鼠标滚轮事件,重写滚动事件,这时候又出现了烦...

57、Jquery鼠标滚动事件动画

  • 2015年03月28日 11:56
  • 1.63MB
  • 下载

javascript鼠标滚动事件详解及应用

鼠标滚轮事件也是一种重要的鼠标事件,但是与onmouseover,onmousemove等事件不同的是,在使用鼠标滚轮事件时需要考虑浏览器的兼容性问题。 浏览器兼容性差别 在IE和...

JS自定义滚动条效果+鼠标滚轮事件

页面代码: Document *{margin:0;padding:0} ul{list-style:none} .detail{width:400p...
  • qyaroon
  • qyaroon
  • 2016年04月14日 18:03
  • 261

鼠标滚动事件,侧边导航js效果

/* ====================== 侧边滑动小导航交互 ====================== */ var sidenav = $(".sidenav"); var siden...

鼠标滚动事件onscroll在firefox/chrome/Ie中执行次数的问题处理

要写一个滚动条滑动加载图片的程序,研究了一下onscroll在不同浏览器里的执行次数,分别如下: var i=0; E.addHandler(window, 'scroll', function...

js捕获鼠标滚动事件

用js捕获鼠标滚动,并判断是前滚还是后滚! 要捕获鼠标的滚动事件,可以来捕获onmousewheel的事件,然后根据event.wheelDelta值的正负来判断是前滚还是后滚! 当值为120时时...

javascript鼠标滚动事件中出现的问题

javascript中禁止浏览器(IE/Opera/Chrome/Firefox)默认事件,禁止浏览器默认滚动事件,解除浏览器默认事件,javascript滚轮事件中存在的一些问题和bug,javas...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:给DBGrid添加鼠标滚动事件
举报原因:
原因补充:

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