Delphi - 如何在运行时创建堆叠条形图系列？

Question

我想在运行时使用 Delphi 中的 Teechart 系列创建 2 个相互堆叠的系列。 本质上我想要 2 个系列，每个系列有 2 个条目或数据点，相应的数据点 i.o.w 系列 1 数据点 1 和系列 2 数据点 1 应该相互堆叠以形成一个 酒吧.

我试过寻找程序或属性更改无果。

Answer 1

最小示例：

var
  S1, S2: TBarSeries;
begin
  S1 := TBarSeries(Chart1.AddSeries(TBarSeries));
  S2 := TBarSeries(Chart1.AddSeries(TBarSeries));
  S1.MultiBar := mbStacked;
  S2.MultiBar := mbStacked;
  //S1.StackGroup := 0;
  //S2.StackGroup := 0;  //same group if few groups will be used
  S1.Add(3);
  S1.Add(1);
  S2.Add(2);
  S2.Add(4);