如何实现滚屏(100分)

我正在编一个电子阅读器，不知道如何实现一篇文章自动翻页，
不知道那里有这样的控件可载？
谢谢各位帮忙！

用scrollbox不就可以吗？delphi自带的

在TIMER中定时模拟按健

yc-zhj:如果你还要继续讨论请定期提前你的帖子，如果不想继续讨论请结束帖子。
请认真阅读大富翁论坛规则说明 http://www.delphibbs.com/delphibbs/rules.htm

滚屏 ：
var
Draw : Boolean;
StartPt,MovePt : TPoint;

procedure TForm2.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then
begin
Draw :=True;
StartPt :=Point(x,y);
end;
end;

procedure TForm2.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Draw then
begin
MovePt :=Point(x,y);
Form2.VertScrollBar.Position :=Form2.VertScrollBar.Position+StartPt.y-MovePt.y;
Form2.HorzScrollBar.Position :=Form2.HorzScrollBar.Position+StartPt.x-MovePt.x;
end;
end;

procedure TForm2.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Draw := False;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
Draw :=False;
end;

参考这个思路就可以了.

scrollbox控件在哪里?我没看到

scrollbox在Additional面板上面，左数第9个

多人接受答案了。