procedure TForm1.Button1Click(Sender: TObject); var MiSerie:TBarSeries; begin MiSerie:=TBarSeries.Create(Self); With MiSerie do begin ParentChart:=Chart1; // o como se llame, del tipo TChart Add(VarBarra1,'', clRed); // VarBarra es tu variable Add(VarBarra2,'', clRed); // cl... y el color que quieras end; end; end.
Ważne artykuły