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.

————————————————

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