TChart en tiempo de Ejecucion
 

Buenas. primero y antetodo soy nuevo en esto de los Tchart y em programacion en jeneral. je,je,je.

la cuestion es que tengo un PageControl en el cul genero unos ttabsheet en tiempo de ejecucion sobre ellos genero un TChart y el problema surge cuando genero las Series en el TChar. la primera lo hace correctamente pero la sugunda vez lo que hace es eliminar el Series del primer TChart y pintar el primero y el segundo sobre el segundo Tchart.

aqui os pongo el codigo.

Código Delphi [-]
Var
 Grafica: tchart;
 Solapa:ttabsheet;
begin
     Solapa:=ttabsheet.Create(self);
     with Solapa do
       begin
        PageControl:=PageControl1;
        Caption := 'Nombre ' + IntToStr(i);
       end;

     Grafica:=tchart.Create(self);
     With  Grafica do
      Begin
       Grafica.Parent:=Solapa;
       Grafica.Name := Solapa.Name;
       Grafica.Left := 128;
       Grafica.Top := 0;
       Grafica.Width := 481;
       Grafica.Height := 333;
       Grafica.BackWall.Brush.Color := clWhite;
       Grafica.LeftWall.Brush.Color := clWhite;
       Grafica.Chart3DPercent := 100;
       Grafica.Legend.Alignment := laLeft;
       Grafica.Legend.ColorWidth := 10;
       Grafica.Legend.TextStyle := ltsPlain;
       Grafica.AddSeries(Series1); 
       Grafica.Series[1].Add(12,'Hola');
      End;
 Inc(i); // I Variable global iniciada a 0
end;

He intentado

Código Delphi [-]
       
   Grafica.AddSeries(Series[i]); 
   Grafica.Series[i].Add(12,'Hola');

Pero me da error "List Index Out of Bounds(0)"

Conseguido......
Bueno tras estar buscando informacion sobre el tema encontre un manual que espero que os sirva.

Aquí dejo el codigo nas completo.

Código Delphi [-]
Var
 Grafica: tchart;
 Solapa:ttabsheet;
 SerieBarras:TBarSeries; //Aquí esta el Sistema.
begin
     Solapa:=ttabsheet.Create(self);
     with Solapa do
       begin
        PageControl:=PageControl1;
        Caption := 'Nombre ' + IntToStr(i);
       end;

     Grafica:=tchart.Create(self);
     With  Grafica do
      Begin
       Grafica.Parent:=Solapa;
       Grafica.Name := Solapa.Name;
       Grafica.Left := 128;
       Grafica.Top := 0;
       Grafica.Width := 481;
       Grafica.Height := 333;
       Grafica.BackWall.Brush.Color := clWhite;
       Grafica.LeftWall.Brush.Color := clWhite;
       Grafica.Chart3DPercent := 100;
       Grafica.Legend.Alignment := laLeft;
       Grafica.Legend.ColorWidth := 10;
       Grafica.Legend.TextStyle := ltsPlain;

       SerieBarras:=TBarSeries.Create(Self);  //Nueva Linea

       Grafica.AddSeries(SerieBarras);  //Nueva Linea
       Grafica.Series[0].Add(12,'Hola');
      End;
Inc(i);
end;