彻底解决Delphi的DBGrid控件鼠标滚轮问题
来源:互联网 发布:淘宝店皇冠转让多少钱 编辑:程序博客网 时间:2024/05/30 23:04
在网上找了很多代码段,发现大家都只是针对一个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控件鼠标滚轮问题
- DBGrid支持鼠标滚轮滚动的解决办法
- DBGrid支持鼠标滚轮滚动的解决办法
- dbgrid支持鼠标滚轮
- delphi中dbgrid中数据随鼠标滚轮滚动
- Delphi中的DBGrid如何实现使用鼠标滚轮上下滚动
- 让DBGRID支持鼠标滚轮
- DBGrid加鼠标滚轮滚动
- C++Builder DBGrid鼠标滚轮
- 解决DBGrid中关于鼠标滚轮的一种方法。
- 让Delphi的DBGrid支持鼠标轮
- 清除delphi 控件DBgrid 的记录
- Delphi DBgrid DBCtrlGrid控件的滾動條問題
- 如何让DbGrid支持鼠标滚轮滚动
- Delphi中的DBGrid控件
- Delphi中的DBGrid控件
- 在DBGrid中实现鼠标滚轮的上下滚屏功能
- delphi 用鼠标滚轮控制Form的垂直滚动条
- Netty4 ChannelPipeLine分析
- C Primer Plus 5th 翻译 第四章:字符串和格式化输入/输出(三)
- 取样问题
- error: expected declaration or statement at end of input
- delphi学习基础资料
- 彻底解决Delphi的DBGrid控件鼠标滚轮问题
- 在github上搭建octopress博客 Mac
- 汇编中中括号[]作用以及lea和mov指令的区别
- 配置写入+关闭应用及进程
- 删除cookies及上网历史记录(DELPHI代码完整版本)
- 空间换时间的数据结构问题
- 20130404
- cocos2d-2.1beta3-x-2.1.1 "no matching function for call to..."
- PAT Basic Level 1001-1010