彻底解决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.