彻底解决Delphi的DBGrid控件鼠标滚轮问题(转) – neights – 博客园

来源: 彻底解决Delphi的DBGrid控件鼠标滚轮问题(转) – neights – 博客园

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.

分享到:更多 ()