＋设为首页 ＋添加到收藏夹
我知道series1.YValues.ValueSource:=字段名 是它的Y轴数据源。
还有，series1.mark.style设置它为labels型，怎么设？
procedure TForm1.Button1Click(Sender: TObject);
var
vPie: TPieSeries;
vBar: TBarSeries;
begin
DBChart1.SeriesList.Clear;
vBar := TBarSeries.Create(nil);
DBChart1.AddSeries(vBar);
vBar.ParentChart := DBChart1;
vbar.BarStyle :=bsRectGradient;
vbar.ColorEachPoint :=True;
vbar.XValues.DateTime := False;
vbar.AutoBarSize :=False;
vbar.BarWidthPercent := 100;
vbar.OffsetPercent :=0;
vBar.Marks.Style := smsValue;
vbar.DataSource:=adoquery1;
vbar.XLabelsSource:=DBGrid1.Columns[1].FieldName ;
vbar.YValues.ValueSource:=DBGrid1.Columns[4].FieldName;
vbar.RefreshSeries;
//vbar.YValues.ValueSource:=11;
end;
