盒子论坛 v2.1

procedure TForm1.Button3Click(Sender: TObject);
var
  Series1: TLineSeries;
  Series2: TPieSeries;
begin
  If rdbLine.Checked = true then
  begin
    Series1 := TLineSeries.Create(Application) ;
    DbChart1.SeriesList.Clear ;
    DbChart1.AddSeries(Series1);

    with Series1 do
    begin
      Series1.Add(121,'数学',clred);
      Series1.Add(98,'语文',clred);
      Series1.Add(104,'英语',clred);
      Series1.Add(95,'几何',clred);
    end;
  end;

  If rdbPie.Checked = true then
  begin
    Series2 := TPieSeries.Create(Application);
    DbChart1.SeriesList.Clear ;
    DbChart1.AddSeries(Series2);
    Series2.Clear ;
    with Series2 do
    begin
      Series2.Add(121,'数学',clred);
      Series2.Add(98,'语文',clred);
      Series2.Add(104,'英语',clred);
      Series2.Add(95,'几何',clred);
    end;
  end;
end;

以上代码完成同一个报表的饼图和线性图表的呼唤，但是打开饼图后，再打开线性图，坐标轴就没有了，请高手指点。
----------------------------------------------
依然记得从你口中说出再见坚强如铁
昏暗中有种烈日灼伤的错觉
黄昏的地平线
画出一句离别
爱情进入永夜
依然记得从你眼中滑落的泪伤心欲决
混乱中有种烈日灼伤的错觉
黄昏的地平线
割断幸福喜悦
相爱已经幻灭

信息

登陆以后才能回复