摘要： 方法一：在窗体添加一个TApplicationEvents组件（在Additional中），然后在它的OnMessage事件中添加如下代码：procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);begin // 当在 DBGrid1 上发生鼠标滚轮事件时 if (DBGrid1.Focused) And (Msg.message = WM_MOUSEWHEEL) then begin if Msg.wParam > 0 then // 滚轮上滚 Sen... 阅读全文