Zur Designetime erzeugte TeeChart.Series per Name ansprechen

[Uwe Raabe]

Wenn du beim Erzeugen der Series statt nil eine TComponent -Instanz (z.B. das Chart selbst) als Owner angibst, dann kannst du über das FindComponent dieser Instanz die Series über ihren Namen finden. Wichtig ist halt, daß die Namen innerhalb des Owner eindeutig sind.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  lsSeries: TLineSeries;
begin
  lsSeries := TLineSeries.Create(Chart1);

  lsSeries.Name := 'lsAverage';
  lsSeries.Title := 'Average';
  lsSeries.Marks.Visible := False;
  lsSeries.ValueFormat := '0.#';
  lsSeries.LinePen.Width := 1;
  lsSeries.XValues.DateTime := False;
  lsSeries.XValues.Order := loAscending;
  lsSeries.YValues.Order := loNone;
  lsSeries.SeriesColor := clBlue;
  lsSeries.Pointer.Visible := False;

  Chart1.AddSeries(lsSeries);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  series: TLineSeries;
begin
  series := Chart1.FindComponent('lsAverage') as TLineSeries;
  Button2.Caption := series.Title;
end;