Delphi DbGrid鼠标滚屏

最新推荐文章于 2014-08-01 18:04:00 发布

iteye_19576

最新推荐文章于 2014-08-01 18:04:00 发布

阅读量161

点赞数

分类专栏： Delphi 文章标签： Delphi

Delphi 专栏收录该内容

15 篇文章 0 订阅

订阅专栏

Delphi的DbGrid默认不支持滚屏。通过一下代码可以让DbGrid支持鼠标滚屏

procedure NewGridWnd(var message:TMessage);

OldGridWnd: TWndMethod;

procedure TForm1.FormCreate(Sender: TObject);
begin
  
  //支持鼠标滚动
  OldGridWnd :=dbgrd.WindowProc;
  dbgrd.WindowProc :=NewGridWnd;
end;
//支持鼠标滚动
procedure TForm1.NewGridWnd(var message:TMessage);
var
  IsNeg: Boolean;
begin
  if message.Msg = WM_MOUSEWHEEL then
    begin
      IsNeg :=Short(message.WParamHi)<0;
      if IsNeg then
        dbgrd.DataSource.DataSet.MoveBy(1)
      else
        dbgrd.DataSource.DataSet.MoveBy(-1)
    end
  else
    OldGridWnd(message);
end;