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); 

最后生成的曲线图如下：