delphi中chart图表中我想动态的添加Line线怎么做呢?

Question

.

Answer 1

with TLineSeries.Create(self) do
    begin
      ParentChart:= Chart1;
      XValues.DateTime:= True;
      Pointer.Visible:= True;
      Pointer.HorizSize:=2;
      Pointer.VertSize:=2;
      Pointer.Style:= psCircle;
      Pointer.InflateMargins:= True;
      Pointer.Brush.Color:= clWhite;
      Pointer.Brush.Style:= bsSolid;
      SeriesColor:=clRed;
      AddXY(0,0,'Label',clBlack);
      Title:= 'Title';
    end;

Answer 2

也可以创建一个Line记录结构的链表,Line记录结构在全局变量中声明:
Type
LineRecord = ^AList;
AList = Record
  Data : Series;
end;
然后可以将 LineRecord.Data 添加进程序中临时创建的 链表:
Var
  LineList : TList;
  LineSeries : LineRecord
begin
  LineList := TList.Create(self);
  LineList.Items.Add(LineSeries.^Data);
  LineSeries.^Data.ParentChart:= Chart1;
end;
  以上可动态生成Line