delphi dbgrid支持鼠标滚动浏览

应用组件ApplicationEvents   （组件位置：delphi7->additional->ApplicationEvents

procedure Tfrmmain.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;

📱 扫码关注公众号

扫描二维码关注我们，获取更多精彩内容
实时更新 · 干货满满