同一个Tchart如何显示多个图表？

各位老师、学长：
    大家好！今有一难事相求，请赐教。

    本人想尽量用语句实现下列问题：
    1.在同一个Tchart中显示四组数据，其中一个是工作过程的变量平均值曲线，
     另外的是三个常量一个中心值、一个上限值和一个下限值;四条线同时用在
     一个Tchart中;
    2.当变量曲线上的点连续7点出现超出控制限或全部靠近中心线时，发出警报
     提示性响应，比如改变相应点的颜色等;
    3.如何令Tchart以固定的列表宽度显示图表，并规定其y轴的最大值、最小值;
    4.如何设置Tchart的数据源;
    5.有关于介绍Chart、DBChart等图表用法的书或资料吗。

    请多多指教！多谢多谢！

9 个解决方案

#1

看看帮助最好了, 没准还有个例子什么的

#2

使用TChart

uses Series;

// Creates two series in the chart and assigns random values
procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, kum: Integer;
  s, t: TLineSeries;
begin
  with Chart1 do
  begin
    // Title of the Chart
    Title.Text.Clear;
    Title.Text.Add('Ein Titel für den Chart');

    // Create first Series
    s := TLineSeries.Create(nil);
    // Clear it
    s.Clear;
    // set the title
    s.Title := 'Chart Linie 1';
    // determine the chart, this series belongs to
    s.ParentChart := Chart1;
    // the x-axis shall use date
    s.XValues.DateTime := True;

    // create the second Series
    t := TLineSeries.Create(nil);
    t.Clear;
    t.Title       := s.Title + ' kum';
    t.ParentChart := Chart1;
    t.XValues.DateTime := True;
    // this series uses the right axis
    t.VertAxis := aRightAxis;

    // now add the random values
    for i := 0 to 364 do
    begin
      j := Random(100);
      s.AddXY(Date + i, j);
      kum := kum + j;
      t.AddXY(Date + i, kum);
    end;
  end;
end;

#3

http://www.csdn.net/develop/Article/22/22654.shtm

#4

http://www.vclxx.org/delphigb/aaat1021.htm

#5

多谢两位

up

#6

看TCHart的Demo和Help就最好了

#7

添加多个series，设置它的dataset就可以了

#8

谢谢楼上各位老师：
    请问我的第三问可以指教一下吗？
    关于TCHart的Demo和Help我看了，因为本人不仅编程菜，英语更是菜的不好意思。
    拜托了！

#9

O了

#1