动态生成TChart,显示矩形图

关键代码

  chtGoals: TChart;
   aseries: TBarSeries;

  chtGoals := TChart.Create(pgclInOut); //pgclInOut为TPageControl,为了显示多个选项卡,所以用它
  with chtGoals do
  begin
    Parent := NewTabSheet; //一定要设置,否则无法显示
    Width := NewTabSheet.Width;
    Height := NewTabSheet.Height;
  end;
  aseries := TBarSeries.Create(chtGoals);
  aseries.BarStyle := bsRectangle;  //矩形
  aseries.Marks.Style := smsvalue; //显示的是用户指定的值
  aseries.ValueFormat:='##0.## %'; //用百分数的形式显示

aseries.Add(StrToFloat(desir), x轴上的标记, clTeeColor);//desir是待分析的值

chtGoals.AddSeries(aseries);