如何在窗体中动态创建CHART

Question

如何在窗体中动态创建CHART

Answer 1

procedure TfrmMain.Button1Click(Sender: TObject);
var
  cht:TChart;       //chart
  ls:TLineSeries;   //Series
begin
  cht:=TChart.Create(self) ;
  cht.Parent:=frmMain;
  cht.View3D :=False;
  ls:=TLineSeries.Create (self);
  ls.ParentChart :=cht;
  ls.AddXY (2,30);
  ls.AddXY (20,40);
end;还有其他的几种Series为
TAreaSeries
TBarSeries
TCircledSeries
TCustomBarSeries
TCustomSeries
TFastLineSeries
THorizBarSeries
TLineSeries
TPieSeries
TPointSeries
TSeriesPointer