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

最後生成的曲線圖如下：