Delphi 6-->ScrollBox

Question

横向的滚动条滚动的事件是哪个啊？各位大哥

Answer 1

//向右滚动
ScrollBox1.HorzScrollBar.Position:=ScrollBox1.HorzScrollBar.Position+5;

Answer 2

procedure TForm1.FormMouseWheel(Sender: TObject;
  Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
  var Handled: Boolean);
begin
  if WheelDelta < 0 then
    ScrollBox1.Perform(WM_VScroll,SB_LineDown,0)
  else
    ScrollBox1.Perform(WM_VScroll,SB_LineUp,0);
end;