让TscrollBox响应鼠标滚轮的滚动事件

        TscrollBox组件默认不响应鼠标的滚轮事件，如果要使它响应就要在它的OnMouseWheel事件中写入以下代码：

    if   WheelDelta   <   0   then
      SendMessage(scrollBox1.Handle,WM_VSCROLL,   SB_LINEDOWN,   0) //向下滚
    else
      SendMessage(scrollBox1.Handle,WM_VSCROLL,   SB_LINEUP,   0); //向上滚

可是写了以上后还是有个问题，如果scrollbox1中没有输入焦点，这个OnMouseWheel事件是不会触发，怎么办呢。我在它的OnMouseMove事件中加入TScrollBox(Sender).SetFoucs;如此之后，如果鼠标在scrollBox1中移动过了，就给它设置输入焦点，这样就能响应OnMouseWhell事件了。