那样的话,你的版本是比较旧的,不过也可以画
如果要自动刷新,就在Series的AfterDrawValues事件里(不是Chart的事件),里加上
With Chart1,Canvas do
Begin
Xindex:=50;//这就是你要在第几个点那里画竖线
Pen.Color:=clBlue;
DoVertLine( Series1.CalcXPos(Xindex), { x } //由Series上的索引值,算出屏幕坐标
ChartRect.Top+1, { initial Y } //竖线的上项点值
ChartRect.Bottom-1 { ending Y } //竖线的下项点值
);
end;
你用的是Delphi6自带的TeeChart控件,在你的Delphi6的安装目录下的Demos目录下的TeeChart
目录下,有例子,基本上你要的功能,都有演示和源码。