TScrollBox

首先在窗体上放个TScrollBox控件，再在工具栏上双击安放你想放的控件如TImage、TPanel,如果想要响应鼠标滚轮事件代码有两种方式分别如下：

1.  if WheelDelta > 0 then
       ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position - 20
     else if WheelDelta < 0 then
       ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position + 20;
2.  if WheelDelta < 0 then
       ScrollBox1.Perform(WM_VSCROLL,SB_LINEDOWN,0)
     else
       ScrollBox1.Perform(WM_VSCROLL,SB_LINEUP,0);