Delphi之Tchart控件使用心得

Delphi之Tchart控件使用心得
最近在学习delphi，做一个软件练手，用到Tchart控件，有些粗略的使用心得，供delphi初学者参考。
TChart是delphi里面一个标准的图形显示控件。它可以静态设计（at design time）也可以动态生成。可下载Steema TeeChart 7，没有源代码，能用就好！
由于我要在同一个Chart界面显示不同的图形，需要动态编程实时绘制曲线。
一、添加Series之前，要删除已有的Series，只能从后往前删，否则出错：
for i:=Chart1.SeriesCount-1 downto 0 do
begin
Chart1.Series[i].Free;
end;
二、运行时候创建一个Series, 有多种方法。
1．Var MySeries : TBarSeries ;
MySeries := TBarSeries.Create( Self );
MySeries.ParentChart := Chart1 ;
2．Chart1.AddSeries( TBarSeries.Create( Self ) );
3．Var MyClass : TChartSeriesClass;
MyClass := TBarSeries ;
Chart1.AddSeries( MyClass.Create( Self ) );
在这里根据，用到循环结构动态添加多条Series。
for j:=0 to NXUGMU-1 do
begin
series:=TFastLineSeries.Create(Chart1);
Chart1.AddSeries(Series); //动态增加series
series.LinePen.Width:=2; //设定线宽
Chart1.Series[j].Title:='速度 '+StrVelocity[j]; //动态标题
randomize;
end;

三、在chart中画出的曲线某个点上标记出该点的值

series.Marks.Visible:=True;
Series.Marks.Style:=smsValue;
四、固定TChart中的坐标，不使TChart中的坐标跟随Series的变化而变化
//设置底座标
with Chart1.BottomAxis do
begin
Automatic:=false;
Minimum:=0;
LabelStyle := talText;
end;

五、添加坐标值，自动绘制曲线
Chart1.Series[j].AddXY(Xzhi,Yzhi,Label,color);
最后生成的曲线图如下：