关于Chart的问题,请教!

Question

不要用tchar类的事例!你可以用tlinechar,tbartchart等事例!

Answer 1

改成这就可以了，要引用SERIES单元
var mychart : tchart;
    myseries:Tbarseries;
begin
mychart:=TChart.Create(self);
mychart.parent:=form1;
myseries:=Tbarseries.create(self);
mychart.AddSeries(myseries);
myseries.ParentChart:=mychart;
with mychart.series[0] as Tbarseries do  
begin
barstyle:=bsRectangle;
end;
end;

Answer 2

to:lxl(蚊蚊)
我少写了一句，myChart.Parent为一个Panel

Answer 3

To anglely168(我是天使!)
tlinechar,tbartchart怎么用，我不知道，你能说详细一点吗，谢谢！

Answer 4

with mychart.series[0] as TBarchart do  
                          ~~~~~~~~~
应该是TBarSeries，没有TBartChart类

Answer 5

我试试看，不过这可是Delphi自带的示例，我只不过将chart改为了自动创建的

Answer 6

呵呵，
你没试过我的代码？
不过这个代码运行时你是看不到有BAR的，
因为还没有调用TBARSERIES.ADDBAR。

Answer 7

我试过啦，运行时还是出现 Invalid Class typeCast错误
你说的TBARSERIES.ADDBAR是什么意思，怎么调用啊

Answer 8

To：lxl(蚊蚊)　
我知道你的代码是对的了,是我没看清