怎样让DBgrid控件支持鼠标中间的滑轮！

Question

在做数据库应用程序中，如果能支持鼠标滑轮进行浏览肯定比点滚动条方便许多，但DBgrid控件居然不支持它，有没有相关替换的控件。

Answer 1

//先在form上加一个TApplicationEventsprocedure 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;

Answer 2

最好用dbgrideh把，功能比dbgrid打多啦

Answer 3

DBgrideh 在哪啊，能告诉我吗？

Answer 4

捕获WM_MOUSEWHEEL消息:if (DBGrid1.Focused) And (Msg.message = WM_MOUSEWHEEL) then
    begin
    end;

Answer 5

是啊，哪有DBGRIDH啊？我找不到。