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

      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.

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值