TChart是动态创建的,想交X轴为时间,Y为数值
for i:=1 to 4 do
begin
line[i]:=Tlineseries.Create(Self);
Chart[i]:=TChart.Create(application);
Chart[i].Parent:=gbChart;
CHart[i].Left:=((i+1) mod 2)* 400+20;
chart[i].Top :=(((i+1) div 2)-1)*250+20;
line[i].ParentChart :=chart[i];
line[i].XValues.DateTime :=true;
chart[i].BottomAxis.DateTimeFormat :='hh:mm:ss' ;
chart[i].BottomAxis.Increment := DateTimeStep[ dtOneMinute ] ;
chart[i].View3D :=false;
chart[i].BevelInner :=bvLowered;
chart[i].BevelOuter :=bvLowered;
chart[i].Color :=clLime;
chart[i].Legend.Visible :=false;
chart[i].AddSeries(line[i]);
//用于自动//////////
chart[i].LeftAxis.Automatic :=true;
chart[i].LeftAxis.AutomaticMaximum:=true;
chart[i].LeftAxis.AutomaticMinimum:=true;
/////////////
chart[i].foot.Text.Add('时:分:秒');但使用
chart[i].Series[0].AddXY(strtotime('17:22:23'),2345,'17:22:23',clred);
出错
使用
chart[i].Series[0].AddXY(strtotime('17:22:23'),345,'17:22:23',clred);
可以添加节点
我估计可以是Y轴区间限制
所以将
chart[i].LeftAxis.Automatic :=true;
chart[i].LeftAxis.AutomaticMaximum:=true;
chart[i].LeftAxis.AutomaticMinimum:=true;
改为chart[i].LeftAxis.SetMinMax(0,3000);
结果chart[i].Series[0].AddXY(strtotime('17:22:23'),2345,'17:22:23',clred);可以添加
但我有不想指定区间 有可以自动适应Y指的吗,应如何写
for i:=1 to 4 do
begin
line[i]:=Tlineseries.Create(Self);
Chart[i]:=TChart.Create(application);
Chart[i].Parent:=gbChart;
CHart[i].Left:=((i+1) mod 2)* 400+20;
chart[i].Top :=(((i+1) div 2)-1)*250+20;
line[i].ParentChart :=chart[i];
line[i].XValues.DateTime :=true;
chart[i].BottomAxis.DateTimeFormat :='hh:mm:ss' ;
chart[i].BottomAxis.Increment := DateTimeStep[ dtOneMinute ] ;
chart[i].View3D :=false;
chart[i].BevelInner :=bvLowered;
chart[i].BevelOuter :=bvLowered;
chart[i].Color :=clLime;
chart[i].Legend.Visible :=false;
chart[i].AddSeries(line[i]);
//用于自动//////////
chart[i].LeftAxis.Automatic :=true;
chart[i].LeftAxis.AutomaticMaximum:=true;
chart[i].LeftAxis.AutomaticMinimum:=true;
/////////////
chart[i].foot.Text.Add('时:分:秒');但使用
chart[i].Series[0].AddXY(strtotime('17:22:23'),2345,'17:22:23',clred);
出错
使用
chart[i].Series[0].AddXY(strtotime('17:22:23'),345,'17:22:23',clred);
可以添加节点
我估计可以是Y轴区间限制
所以将
chart[i].LeftAxis.Automatic :=true;
chart[i].LeftAxis.AutomaticMaximum:=true;
chart[i].LeftAxis.AutomaticMinimum:=true;
改为chart[i].LeftAxis.SetMinMax(0,3000);
结果chart[i].Series[0].AddXY(strtotime('17:22:23'),2345,'17:22:23',clred);可以添加
但我有不想指定区间 有可以自动适应Y指的吗,应如何写
解决方案 »
- Delphi中DBGrid显示主从表的问题
- 如何区分clientSocket呢,sockethandle?
- 如何用delphi编程实现将sql server数据库中的数据导入到excel中,出现问题了
- 关于socket的问题!
- delphi中我想让tab键跳3格怎么设置?
- 感受李维新书而引发对中国书籍出版的不满
- Who can help me!Thanks!
- 我用着delphi怎么总是被字符问题搞得头晕?
- 在clientsocket/serversocket中传图片?还有把query控件查询出来的结果传给客户端要怎样做?
- 将VC++语句转成delphi语句
- 高分,高手请进
- 前天我说上海要下大雪,竟被说中了!现在上海满天飞雪,屋顶都白了,爽啊,好几年没看到大雪了!
chart[i].Series[0].AddXY(strtotime('17:22:23'),211{这个值随意},'17:22:23',clred);我这里一起Add两个点就可以了.可能是楼主要Create时有什么东西没有Create出来...
chart.Series[0].AddY(3000000,'17:22:23',clred);还是一句话分成两句说吧