关于scrollbox的问题。在线等待

                            
我在程序中用了scrollbox,想实现鼠标滚轮的事件,通过该事件,我就可以让我得窗体上下移动。我的函数是这样的。但是不执行,请大家帮我看看!   
  procedure   TForm2.ScrollBox1MouseWheel(Sender:   TObject;   Shift:   TShiftState;  
  WheelDelta:   Integer;   MousePos:   TPoint;   var   Handled:   Boolean);  
  begin  
  scrollbox1.VertScrollBar.Position:=wheeldelta+  
  scrollbox1.VertScrollBar.Position;  
  end;

查看回复