关于DBChart的几个小问题：

Question

1. 使Series.Active True或False;
2. 不是同类不能转换。（也许行，我不会）。

Answer 1

lvloj()：
Series.Active 好像不行

Answer 2

试试：      Chart1.AddSeries(TBarSeries.Create(Chart1));
      for i:=0 to iMax-1 do
        Chart1.Series[0].Add(pChart.stValue[i].dValues,pChart.stValue[i].sName,pChart.stValue[i].clColor);      Chart1.AddSeries(TPieSeries.Create(Chart1));
      for i:=0 to iMax-1 do
        Chart1.Series[1].Add(pChart.stValue[i].dValues,pChart.stValue[i].sName,pChart.stValue[i].clColor);      Chart1.AddSeries(TLineSeries.Create(Chart1));
      for i:=0 to iMax-1 do
        Chart1.Series[2].Add(pChart.stValue[i].dValues,pChart.stValue[i].sName,pChart.stValue[i].clColor);
    end;    Display(pChart.iType);procedure TFChart.Display(i: Integer);
var
  j: Integer;
begin
  for j:=0 to 2 do
  begin
    Chart1.Series[j].Active:=false;
  end;
  Chart1.Series[i].Active:=true;
end;

Answer 3

谢谢两位。我得到第二个问题的ANSWER就给分！

Answer 4

上面不是告诉你了吗?前面添加了Bar\Pie\Line三种类型,值都是一样的(包括颜色),下面那个函数是你选择哪一种图形来显示.

Answer 5

case CBB_SeriesType.ItemIndex of
      0  :  ChangeSeriesType(tseries,TLineSeries);
      1  :  ChangeSeriesType(tseries,TPieSeries);
      2  :  ChangeSeriesType(tseries,TBarSeries);
      3  :  ChangeSeriesType(tseries,TAreaSeries);
      4  :  ChangeSeriesType(tseries,TPointSeries);
      5  :  ChangeSeriesType(tseries,THorizBarSeries);
   end;

Answer 6

忘了点东西：tseries:TChartSeries;

Answer 7

wanwangzhiwang(万王之王) :ChangeSeriesType(dbchart1.SeriesList.series[4],TLineSeries);dbchart1.SeriesList.series[4]也是TChartSeries
怎么不行？

Answer 8

最好是这样：
var
   aseries:TchartSeries;
begin
   aseries:=dbchart1.SeriesList.Series[0];
   ChangeSeriesType(aseries,TLineSeries);
end;