// 自己控制就可以了,满足你的要求
var
Form1: TForm1;
cP: Integer = 1;
// 画点开始,实际情况自己定
cPage: Integer = 0;
// 页数控制
// 画线
procedure TForm1.DrawSer;
var
i: Integer;
begin
for i := cp to cp + 9do
begin
Series1.AddXY(i, Random(50));
end;
cp := i;
Inc(cPage);
end;
// 定时器开始
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := True;
end;
// 下一页
procedure TForm1.Button2Click(Sender: TObject);
begin
Chart1.NextPage;
end;
// 后一页
procedure TForm1.Button3Click(Sender: TObject);
begin
Chart1.PreviousPage;
end;
// 定时画线
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Chart1.MaxPointsPerPage := 10;
DrawSer;
if cp > cPage * 10 then
Chart1.NextPage;
end;
// 定时结束
procedure TForm1.Button4Click(Sender: TObject);
begin
Timer1.Enabled := False;
end;