Criar grafico Tchart usando apenas codigo
Bom dia!
Tenho a seguinte situação: preciso criar um grafico em cada tabsheet dependendo do numero inserido pelo usuario. É uma rotina que pode variar muito.
Então eu preciso que esta criação seja feita em tempo de execução.
Fiz alguns testes mas nao deu certo
//NTabs é o numero que o usuario escolheu
for I := 1 to Ntabs do
begin
//criação da tabsheet
NewTabSheet := TTabSheet.Create(Form2.PageControl1);
NewTabSheet.PageControl := Form2.PageControl1;
nome := 'teste' + inttostr(i);
NewTabSheet.Caption := 'teste' + inttostr(i);
//criação do grafico
chart := Tchart.Create(NewTabSheet);
chart.Visible := true;
chart.AddSeries(TbarSeries.Create(chart));
//chart.Visible := true;
//chart.create(chart);
end;
Form2.show;
Tenho a seguinte situação: preciso criar um grafico em cada tabsheet dependendo do numero inserido pelo usuario. É uma rotina que pode variar muito.
Então eu preciso que esta criação seja feita em tempo de execução.
Fiz alguns testes mas nao deu certo
//NTabs é o numero que o usuario escolheu
for I := 1 to Ntabs do
begin
//criação da tabsheet
NewTabSheet := TTabSheet.Create(Form2.PageControl1);
NewTabSheet.PageControl := Form2.PageControl1;
nome := 'teste' + inttostr(i);
NewTabSheet.Caption := 'teste' + inttostr(i);
//criação do grafico
chart := Tchart.Create(NewTabSheet);
chart.Visible := true;
chart.AddSeries(TbarSeries.Create(chart));
//chart.Visible := true;
//chart.create(chart);
end;
Form2.show;
Cristina Silva
Curtidas 0
Respostas
Cristina Silva
14/05/2014
a criação da tabsheet funciona certinho, mas o grafico nao!
Alguem poderia me ajudar
Alguem poderia me ajudar
GOSTEI 0