关于在dbgird中添加鼠标滚轮滚动事件，为啥只能调用一次？

Question

关于在dbgird中添加鼠标滚轮滚动事件，为啥只能调用一次？我在2个form上都写了这个事件，如果调用了一个form的dbgrid滚轮事件，另一个form的dbgrid滚轮事件就不起作用了，这是啥原因啊？ 是因为句柄么？
Procedure Tckd_sum_fm.OnMouseWheel(Var Msg :TMsg;var Handled:Boolean
begin
        if Msg.message = WM_MouseWheel then      begin        if Msg.wParam > 0 then         begin           if DBGrid1.Focused then             SendMessage(DBGrid1.Handle,WM_VSCROLL,SB_PAGEUP,0);         end        else         begin           if DBGrid1.Focused then             SendMessage(DBGrid1.Handle,WM_VSCROLL,SB_PAGEDOWN,0);         end;        Handled:= True;      end;end;//--------------------------------------

Answer 1

扩展DBGrid的滚轴事件，是要在TDBGrid写WM_MouseWheel的处理函数，而不是在Form中根据WM_MouseWheel分发WM_VSCROLL消息。