给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;

相关文章推荐

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

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

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

页面代码: Document *{margin:0;padding:0} ul{list-style:none} .detail{width:400p...

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

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

js捕获鼠标滚动事件

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

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

javascript中禁止浏览器(IE/Opera/Chrome/Firefox)默认事件,禁止浏览器默认滚动事件,解除浏览器默认事件,javascript滚轮事件中存在的一些问题和bug,javas...

关于浏览器兼容的问题以及字符串编码的一个坑,鼠标滚动事件mousewheel和DOMMouseScroll

话不多说,附上代码: body{ background: gray; overflow: hidden; } .wrap-ul li{ width: 100...

javascript 鼠标滚动事件绑定事件的方法与注意事项

滚轮事件是不同浏览器会有一点点区别,一个像Firefox使用DOMMouseScroll ,ff也可以使用addEventListener方法绑定DomMouseScroll事件,其他的浏览器滚轮事件...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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