请教:DBChart如何代码设置形状？

Question

请教:DBChart如何代码设置形状？比如饼图，线图。研究了半天没有搞定。dbchart1.style = 'pie'；这样写出错。

Answer 1

//看了一下*.dfm，然后胡乱拼凑了一下，不知道管不管用procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := Self.DBChart1.ComponentCount-1 downto 0 do
    Self.DBChart1.Series[I].Clear;
  with TPieSeries.Create(Self) do begin
    ParentChart := Self.DBChart1;
    Marks.ArrowLength := 8;
    Marks.Visible := True;
    DataSource := Table1;
    SeriesColor := clRed;
    XLabelsSource := 'SIZE';
    OtherSlice.Text := 'Other';
    PieValues.DateTime := False;
    PieValues.Name := 'Pie';
    PieValues.Multiplier := 1.000000000000000000;
    PieValues.Order := loNone;
    PieValues.ValueSource := 'WEIGHT';
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Table1.DatabaseName := 'DBDEMOS';
  Table1.TableName := 'animals.dbf';
  Table1.Open;
end;

Answer 2

谢谢。
这个方法是可行的，好像不是简单方法，因为设计时候已经设计好了series[0]，为什么还要动态生成一次这个series呢？

Answer 3

  if dbchart1.Series[0].Active = False then
    dbchart1.Series[0].Active := True;
这个方法比较简单，谢谢大家