[愿创]让DBGrid支持鼠标滚轮浏览数据，及去除垂直滚动条！

最新推荐文章于 2021-01-10 09:06:50 发布

gencheng

最新推荐文章于 2021-01-10 09:06:50 发布

阅读量3.2k

点赞数

分类专栏： Delphi组件开发文章标签： windows interface class

本文链接：https://blog.csdn.net/gencheng/article/details/1555978

版权

Delphi组件开发专栏收录该内容

4 篇文章 0 订阅

订阅专栏

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.