И снова Chart

[SunKnight]

var k:TLineSeries;
begin
k:=TLineSeries.Create(chart1);
k.ParentChart:=Chart1;
k.SeriesColor:=clRed;
k.AddXY(10,20,'',clRed);
end;
вот код для создания динамически Сериала, только график чет он не рисует, что я здесь неправильно сделал?

[mihali4]

var k: TChartSeries;
begin
k:=TChartSeries.Create(nil);
k.Title:='Серия 2';
Chart1.AddSeries(k);

[SERG1980]

uses series //если до этого не создавали серии в редакторе графика

procedure TForm1.Button1Click(Sender: TObject);
var k:Tchartseries;
begin
k:=TLineSeries.Create(chart1);
k.ParentChart:=Chart1;
k.SeriesColor:=clRed;
k.AddXY(10,20,'',clRed);
k.AddXY(20,20,'',clRed);
end;

[SunKnight]

Спасибо все работает замечательно. И еще одно, я написал процедуру для создания Сериала в ДЛЛ и когда идет вызов ее из главной формы вылетает ошибка:"Cannot assign a TChartPen to a TPen ". Что это может быть?

[mihali4]

Похоже, вы где-то забыли сделать ссылку на элемент вызывающей функцию DLL формы.
Что-то вроде (Sender as TForm).Chart1....

[Stilet]

Да это скорее всего несовпадение типов