怎么改变DBchart显示的形状(如直方，圆饼)，还有改变直方的宽度呀(注：在代码里面改呀)

Question

(注：在代码里面改呀)，这点特别注意哦!

Answer 1

//柱状图
procedure TForm1.Button4Click(Sender: TObject);
begin
  With DBChart1 do
  begin
   Series1.Clear;
   Series3.DataSource:=Table1;
   Series3.XLabelsSource:='Name';
   Series3.YValues.ValueSource := 'Currbalan';
   Series3.CustomBarWidth := 20;    //改变宽度
   Series3.CheckDatasource;
  end;
end;
//饼图
procedure TForm1.Button3Click(Sender: TObject);
begin
  With DBChart1 do
  begin
   Series3.Clear;
   Series1.DataSource:=Table1;
   Series1.PieValues.ValueSource := 'Currbalan';
   Series1.CheckDatasource;
  end;
end;

Answer 2

我的意思是说在FORM上面做几个按钮，上面写“直方图”、“圆饼图”等什么的，单击其中一个后，DBChart的形状就相应地改变:比如说我单击了“直方图”，他就变成直方图，单击了“圆饼图”他就变成了圆饼图。不是预先设置好的呀