彻底解决Delphi的DBGrid控件鼠标滚轮问题(转)
2013-03-26 10:48
501 查看
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.
在网上找了很多代码段,发现大家都只是针对一个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.
相关文章推荐
- 黄聪:Delphi Dbgrid滚轮问题解决
- VMware中安装Ubuntu后鼠标滚轮问题解决
- Ext Gantt 3.*解决任务部分鼠标滚轮失效问题的方法
- VMWARE下Fedora8安装VM TOOLS后解决鼠标滚轮不能使用的问题
- 解决delphi关于dbgrid和webbrowser的焦点冲突的问题
- Delphi xe5 控件TIdhttp的用法post,get解决中文乱码问题
- [ActionScript] AS3解决html与flash鼠标滚轮冲突的问题
- Fedora8安装VMware Tools后鼠标滚轮不能用的问题的解决方法
- 解决Winform中鼠标滚轮无法操作Panel滚动条的问题
- 解决Delphi的Indy10组件包TIdHttpServer控件解码HTTP请求时参数乱码的问题
- fix DAX error(解决delphi编写的ocx控件中的DAX error问题)
- Devexpress V40 在Delphi2009中 DBGrid 使用Search功能时文本选择从右至左问题解决
- Fedora8安装VMware Tools后鼠标滚轮不能用的问题的解决方法
- VMware中安装Ubuntu后鼠标滚轮问题解决
- 在Ubuntu下安装VMware Tools导致鼠标滚轮不能用的问题的解决方法
- IE9无法输入文字、鼠标滚轮失效等问题之解决办法
- 解决swt桥连awt后鼠标滚轮事件(MouseEvent)无法接收的问题。
- 解决DBGrid中关于鼠标滚轮的一种方法。
- 解决C++Builder中DBGrid控件中DateTime字段为空时显示1899-12-30的问题
- Delphi xe5 控件TIdhttp的用法post,get解决中文乱码问题