//左滚
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(ScrollBox1.Handle, WM_HScroll, SB_LINERIGHT, 0);
end;//下滚
procedure TForm1.Button2Click(Sender: TObject);
begin
SendMessage(ScrollBox1.Handle, WM_VScroll, SB_LineDown, 0);
end;//其它的看Window SDK帮助
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(ScrollBox1.Handle, WM_HScroll, SB_LINERIGHT, 0);
end;//下滚
procedure TForm1.Button2Click(Sender: TObject);
begin
SendMessage(ScrollBox1.Handle, WM_VScroll, SB_LineDown, 0);
end;//其它的看Window SDK帮助
我的好多问题都是你给我的答案太谢谢了