关于 Dbgrid ,大家请进!

Question

大家好,请问该怎样让dbgrid支持鼠标滚轮啊!请贴出源码好码?,谢谢!

Answer 1

转贴别人的代码：增加一个 TApplicationEvent组件, 在它的消息 OnMessage 中添加如下的事件处理代码.
procedure TMainForm.WmMouseWheelMessage(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (DBGrid.Focused) And (Msg.message = WM_MOUSEWHEEL) then
    begin
      if Msg.wParam > 0 then
        SendMessage(DBGrid.Handle, WM_KEYDOWN, VK_UP, 0)
      else
        SendMessage(DBGrid.Handle, WM_KEYDOWN, VK_DOWN, 0);
      Handled := True;
    end;
end;

Answer 2

TApplicationEvent组件在那里啊？？