delphi DBgrid 数据随着鼠标滚动而滚动！

首先要在窗体放一个ApplicationEvents控件，在onApplicationEvents 事件中加入以下代码（第一法：只对指定名的控制起作用，第二个对类起作用）

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;

————————————————————————————————————————————————————————

方法二：

<