Delphi之Tchart控件使用心得

Delphi之Tchart控件使用心得
    最近在学习delphi,做一个软件练手,用到Tchart控件,有些粗略的使用心得,供delphi初学者参考。
    TChartdelphi里面一个标准的图形显示控件。它可以静态设计(at design time)也可以动态生成。可下载Steema TeeChart 7,没有源代码,能用就好!
    由于我要在同一个Chart界面显示不同的图形,需要动态编程实时绘制曲线。
    一、添加Series之前,要删除已有的Series,只能从后往前删,否则出错 

for i:=Chart1.SeriesCount-1 downto 0  do                    

  begin

    Chart1.Series[i].Free;

  end;

二、运行时候创建一个Series, 有多种方法。

1Var MySeries : TBarSeries ;

   MySeries := TBarSeries.Create( Self );

   MySeries.ParentChart := Chart1 ;

     2Chart1.AddSeries( TBarSeries.Create( Self ) );

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

最后生成的曲线图如下:

 

Delphi之Tchart控件使用心得_第1张图片

 

你可能感兴趣的:(编程,Delphi,图形)