彻底解决Delphi的DBGrid控件鼠标滚轮问题(转)

Delphi的DBGrid控件对鼠标滚轮的支持有问题，不仅不能连续滚动，显示的内容还会错误。

　　在网上找了很多代码段，发现大家都只是针对一个Form页面提出解决方法，而且这些方法都存在一个同样的问题，那就是，如果DBGrid控件里正在进行编辑，则鼠标滚轮根本不起作用。

　　结合这些方法，本人提出了一个通用的解决方案，这个方案只需要在应用程序的主Form里加入处理程序就可以达到整个应用程序的所有DBGrid控件都得到支持。

　　原理是：当有鼠标滚轮事件发生时判断程序当前激活的界面里激活（或者是获得焦点）的控件类名如果是TDBGrid（当未处于编辑状态时是这个类名）或者是TDBGridInplaceEdit（当DBGrid处于编辑状态时是这个类名）则按加入的程序进行相应的滚动处理。

　　具体如下：

　　注意，只需要在主Form里按以下加入红色的代码段即可。

　　

　　

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure OnMouseWheel(var Msg :TMsg;var Handled:Boolean); //新加的鼠标滚轮处理程序
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

 

{$R *.dfm}

 

//新加的鼠标滚轮处理程序

procedure TForm1.OnMouseWheel(var Msg :TMsg;var Handled:Boolean);
begin
try //注意，这里使用容错处理的目的是屏蔽可能引起的错误
if (Msg.message = WM_MouseWheel)
and ((Screen.ActiveForm.ActiveControl.ClassName='TDBGrid')
or (Screen.ActiveForm.ActiveControl.ClassName='TDBGridInplaceEdit')) then begin
if Msg.wParam > 0 then
SendMessage(Screen.ActiveForm.ActiveControl.Handle,
WM_VSCROLL,
SB_PAGEUP, //SB_PAGEUP按页上滚，SB_LINEUP按行上滚
0)
else
SendMessage(Screen.ActiveForm.ActiveControl.Handle,
WM_VSCROLL,
SB_PAGEDOWN, //SB_PAGEDOWN按页下滚，SB_LINEDOWN按行下滚
0);
Handled:= True;
end;
except
end;
end;

 

//在Form的OnCreate事件里加入以下截获鼠标滚动事件到自己加的处理程序
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=OnMouseWheel;
end;

end.