鼠标控制grid滚动.txt

来自「dbgrid显示数据库记录时,可以建立ontitle事件使鼠标控制grid滚动」· 文本 代码 · 共 13 行

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
  begin
  if (DBGrid1.Focused) And (Msg.message=WM_MOUSEWHEEL) then
          begin
              if Msg.wParam>0 then
                  SendMessage(DBGrid1.Handle,WM_KEYDOWN,VK_UP,0)
              else
                  SendMessage(DBGrid1.Handle,WM_KEYDOWN,VK_DOWN,0);
              Handled:=True;
          end;
  end;