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

Question

我想在运行时使用 Delphi 中的 Teechart 系列创建 2 个相互堆叠的系列。 本质上，我想要 2 个系列，每个系列有 2 个条目或数据点，并且相应的数据点 i.o.w series1 datapoint1 和 series 2 datapoint 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);