[愿创]让DBGrid支持鼠标滚轮浏览数据,及去除垂直滚动条!
2007-04-07 20:19
435 查看
DBGrid一直都不支持鼠标中键滚动,有时候想要去除水平滚动条,让我们自己动手制作一个自定义的DbGrid组件吧!
代码如下:
unit AddMsgDBGrid;
interface
uses
windows, SysUtils, Messages, Classes, Controls, Grids, DBGrids;
type
TAddMsgDBGrid = class(TDBGrid)
protected //添加新的'鼠标滚轮消息'
procedure WMMOUSEWHEEL(var Message: TMessage); message WM_MOUSEWHEEL;
procedure Paint; override; //覆盖Paint是为了去除'水平滚动条'
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('GenCheng', [TAddMsgDBGrid]);
end;
{ TAddMsgDBGrid }
procedure TAddMsgDBGrid.WMMOUSEWHEEL(var Message: TMessage);
var
ScrollDown: Boolean;
begin
ScrollDown := Short(Message.WParamHi) < 0; //Short函数在windows单元
if assigned(self.DataSource) and assigned(self.DataSource.DataSet) and self.DataSource.DataSet.active then
if ScrollDown then
self.DataSource.DataSet.MoveBy(1) //或者Self.DataSource.DataSet.Next;
else
self.DataSource.DataSet.MoveBy(-1); //或者Self.DataSource.DataSet.Prior;
end;
procedure TAddMsgDBGrid.Paint;
begin
SetScrollRange(self.Handle, SB_HORZ, 0, 0, False); //去除水平滚动条
inherited Paint;
end;
end.
代码如下:
unit AddMsgDBGrid;
interface
uses
windows, SysUtils, Messages, Classes, Controls, Grids, DBGrids;
type
TAddMsgDBGrid = class(TDBGrid)
protected //添加新的'鼠标滚轮消息'
procedure WMMOUSEWHEEL(var Message: TMessage); message WM_MOUSEWHEEL;
procedure Paint; override; //覆盖Paint是为了去除'水平滚动条'
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('GenCheng', [TAddMsgDBGrid]);
end;
{ TAddMsgDBGrid }
procedure TAddMsgDBGrid.WMMOUSEWHEEL(var Message: TMessage);
var
ScrollDown: Boolean;
begin
ScrollDown := Short(Message.WParamHi) < 0; //Short函数在windows单元
if assigned(self.DataSource) and assigned(self.DataSource.DataSet) and self.DataSource.DataSet.active then
if ScrollDown then
self.DataSource.DataSet.MoveBy(1) //或者Self.DataSource.DataSet.Next;
else
self.DataSource.DataSet.MoveBy(-1); //或者Self.DataSource.DataSet.Prior;
end;
procedure TAddMsgDBGrid.Paint;
begin
SetScrollRange(self.Handle, SB_HORZ, 0, 0, False); //去除水平滚动条
inherited Paint;
end;
end.
相关文章推荐
- 通过扩展Silverlight的控件DataGrid,使其垂直滚动条支持鼠标滑轮
- javascript 实现模拟滚动条,但不支持鼠标滚轮
- 鼠标滚轮支持、VB中数据表格类控件的滚轮支持方法
- 父子窗体滚动条支持鼠标滚轮移动
- delphi 用鼠标滚轮控制Form的垂直滚动条
- DBGRID 拖动滚动条 和 鼠标滚轮的问题
- 如何让DbGrid支持鼠标滚轮滚动
- 让DBGRID支持鼠标滚轮
- 如何让DbGrid支持鼠标滚轮滚动 转
- DBGrid支持鼠标滚轮滚动的解决办法
- 通过扩展Silverlight的控件DataGrid,使其垂直滚动条支持鼠标滑轮 (转)
- dbgrid支持鼠标滚轮
- 如何去除页面的滚动条并且还可以用滚轮滚动页面?
- VB6.0代码窗口不支持鼠标中键操作滚动条解决方法
- SWT的鼠标滚轮支持心得体会
- 知识库文章MDL9720560-File: Visual Basic 6 IDE鼠标滚轮支持插件
- 支持鼠标滚轮图片自适应的焦点图代码等
- 妙味——自定义滚动条+鼠标滚轮
- VB6.0 开发环境支持鼠标滚轮
- 让VB应用程序支持鼠标滚轮