有关Chart或DBChart(100分)

请问怎样在图表中把表中数据动画显示，因为显示不了所有记录，就让他自动依次往左移。
还有怎样把某个数据的mark颜色改变，注意不是所有数据，就是说某个数据突异要强调。
或者在这个数据加个动画控件，如警灯之类。
谢谢！

我搞过，可是不太好实现，作了一半，放弃了：（
基本上动画现实好实现，但是也有两个问题，还是听听各位富翁的吧

拜托各位大侠,帮帮忙[]

看delphi自带列子

不要说废话,自带例子太复杂.

左移
先让线在到右边
for P := 0 to 300do
begin
{延时}
for i := 0 to ComponentCount - 1do
if Components.Tag < 0 then
TFastLineSeries(Components).add(0, ' ', 0);
end;
加个时钟
TFastLineSeries(Components[j]).delete(0);
不断删除第一个点，删了之后，右移就不能看到了。
用的是CHART
以我以前写的程序，可能不太适合你

to windwy
是的,还有更好的吗

我很久以前就在这里注册了,可都没时间来提问或答问
希望大家今天家里开通了宽带,马上就到论坛来了
希望大家多多关照
可以加个TIMER在事件发生时控制DBCHART的一些属性
我做过DBCHART的 PIE旋转,
具体用series1.RotationAngle:=?? 0-359
或 series1.Rotate(??)
控制旋转,我只试过PIE其他的,你自己找找属性

自動移動好說
如下還可讓用戶自已調節:
做4個bitbtn和一個spinedit
procedure TFormStatistic.SpinEdit1Change(Sender: TObject);
begin
DBCHART1.MaxPointsPerPage := SPINEDIT1.Value ;
DBCHART1PAGECHANGE(DBCHART1) ;
end;

procedure TFormStatistic.BFirstPageClick(Sender: TObject);
begin
DBCHART1.Page := 1 ;
end;

procedure TFormStatistic.ButtonPreviousClick(Sender: TObject);
begin
DBCHART1.PreviousPage ;
end;

procedure TFormStatistic.ButtonNextClick(Sender: TObject);
begin
DBCHART1.NextPage ;
end;

procedure TFormStatistic.BLastPageClick(Sender: TObject);
begin
DBCHART1.Page := DBCHART1.NumPages ;
end;

procedure TFormStatistic.DBChart1PageChange(Sender: TObject);
begin
DBCHART1.UndoZoom ;
LABEL11.Caption := INTTOSTR(DBCHART1.PAGE)+' 頁/'+INTTOSTR(DBCHART1.NUMPAGES)+' 頁' ;
BUTTONPREVIOUS.Enabled := DBCHART1.Page > 1 ;
BUTTONNEXT.Enabled := DBCHART1.Page < DBCHART1.NumPages ;
BLASTPAGE.Enabled := BUTTONNEXT.Enabled ;
BFIRSTPAGE.Enabled := BUTTONPREVIOUS.Enabled ;
end;

強調某條數據則在TDBChart的ONBeforeDrawAxes
和onBeforeDrawSeries中作吧

多人接受答案了。