black6 wrote:

>

> 오늘도 국가와 민족을 위해 개발에 여념이 없으신 여러 개발자 여러분..

> 수고 많으십니다..

>

> 다름이 아니라, TChart를 동적으로 생성하려고 하는데 잘 안되더군요..

> 혹 아시는 분 있으시면 주저없이 알켜주시면 대단히 감사하겠습니다..

> 소스가 있으시면 같이 주면 금상첨화구요..

> 제가 델파이를 사용한지 얼마 안되서 아직 서툰면이 많거든요..

> 그럼 모두들 수고하십시요..



간단히 차트를 생성해서 두개의 시리즈를 추가해봤습니다.

저도 초보라 도움이 될지 모르겠군요..



procedure TForm1.BitBtn1Click(Sender: TObject);

Var MyChart : TChart;

ImsiSerise : TLineSeries;

ImsiSerise2 : TBarSeries;

begin

MyChart := TChart.Create(Application); <-- 차트 객체 생성

MyChart.Top := 10;

MyChart.Left := 10;

MyChart.Width := 500;

MyChart.Height := 300;

MyChart.Parent := Self; <-- Parent Object가 있어야 합니다



ImsiSerise := TLineSeries.Create(Self); <- Line 생성

ImsiSerise.Add(50,'abc',clBlue);

ImsiSerise.Add(80,'def',clBlue);

ImsiSerise.Add(70,'ghi',clBlue);



MyChart.AddSeries(ImsiSerise);



ImsiSerise2 := TBarSeries.Create(Self); <- Bar 생성

ImsiSerise2.Add(20,'aaa',clRed);

ImsiSerise2.Add(60,'bbb',clRed);

ImsiSerise2.Add(90,'ccc',clRed);



MyChart.AddSeries(ImsiSerise2);



end;