delphi TChart画动态曲线

我用TChart动态画一条曲线，每隔1秒采集一个点，现在想分页显示，比如每页显示10个点，到10个点自动翻下一页接着画，我设置了MaxPointsPerPage属性，只是右边那个框里数据翻页，画出来的曲线不翻页，X轴没变化。希望知道的帮助我一下。谢谢！最好有个小例子程序！没分了，以后一定补上！邮箱：[email protected]

在你的Timer或线程中添加语句：Chart1.Page:= Chart1.NumPages; 也就是保证当前Chart的页为最后一页（这里用总页数的值来表示），在向Chart添加点内容后加入此句！
可以添加判断，避免每次都重复赋值。 ：）

lineseries:tfastlineseries; i,j:integer; x,y:real; begin chart1.bevelouter:=bvnone; chart1.legend.visible:=true; chart1.rightaxis.automatic:=true; randomize; for j:=0 to 1 do begin lineseries:=tfastlineseries.create(chart1); chart1.addseries(lineseries); chart1.series[j].title:='s'+inttostr(j); chart1.series[j].showinlegend:=true; chart1.series[j].marks.style:=smsvalue; for i:=1 to 10 do begin y:= random(100); x:=i; chart1.series[j].addxy(x,y); end; end;