如何让控件中内容跟随滚轴移动

最新推荐文章于 2020-01-04 10:33:20 发布

AmberChun

最新推荐文章于 2020-01-04 10:33:20 发布

阅读量311

点赞数

分类专栏： delphi 文章标签： delphi 鼠标滚动滚轴 scroll

本文链接：https://blog.csdn.net/forgotsnow/article/details/39232335

版权

delphi 专栏收录该内容

10 篇文章 0 订阅

订阅专栏

procedure TForm1.ApplicationEvents1Message(var Msg:tagMSG;var Handled:Boolean);
begin
if (dbgrd1.focused) And (Msg.message=WM_MOUSEWHEEL) then
begin
  if  Msg.wParam>0 then
     SendMessage(dbgrd1.Handle,WM_VSCROLL,SB_PAGEUP,0)
      {SendMessage(dbgrd1.Handle,WM_KEYDOWN,VK_UP,0)}
  else
     SendMessage(dbgrd1.Handle,WM_VSCROLL,SB_PAGEDOWN,0);
      {SendMessage(dbgrd1.Handle,WM_KEYDOWN,VK_DOWN,0);}
  Handled:=  True; 
end;
end;