Tchart 动态添加节点

 

动态添加节点 

Chart1.AddSeries( TFastLineSeries.Create( self ) );

 

 

添加节点坐标值

Chart1.Series[0].AddXY(X,Y,Label,color);  Chart1曲线0 坐标X Y处 添加点 

           第一条曲线是 Series[0].  

           第二条曲线是 Series[1].   依此类推


 

 

  

function AddXY(Const AXValue, AYValue: Double; Const ALabel: String; AColor: TColor): Integer; virtual;
Description
This function inserts a new point in the Series. 
The new point has X and Y values. 

The ALabel parameter is optional (can be empty ''). 
The AColor parameter is optional (can be clTeeColor). 
The function returns the new point position in the Values list.

Series1.AddXY( 123, 456, 'Hello', clGreen );

 

==============================================

if NodeNum > Chart1.SeriesCount   then //如果收到的节点地址  大于 曲线数目  增加曲线
      begin
         for i:=Chart1.SeriesCount+1 to  NodeNum   do
          begin
             Chart1.AddSeries( TFastLineSeries.Create( self ) );
             //TFastLineSeries.Create( self ).LinePen.Width:=2;       //OText.Add:='节点'+ IntToStr(i)+'温度';
             Chart1.Series[i-1].Title:='Node '+IntToStr(i)+'温度';

          end
      end ;

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
在Delphi中使用TChart动态显示多条曲线的源码可以如下所示: ```delphi unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, VCLTee.Series, Vcl.ExtCtrls, VCLTee.TeEngine, VCLTee.TeeProcs, VCLTee.Chart; type TForm1 = class(TForm) Chart1: TChart; Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } procedure AddRandomData(Series: TLineSeries); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var Series1, Series2: TLineSeries; begin // 创建两条曲线 Series1 := TLineSeries.Create(Chart1); Series2 := TLineSeries.Create(Chart1); // 设置曲线的标题和样式 Series1.Title := '曲线1'; Series2.Title := '曲线2'; Series1.Pointer.Visible := True; Series2.Pointer.Visible := True; // 将曲线添加到图表中 Chart1.AddSeries(Series1); Chart1.AddSeries(Series2); // 设置图表的标题和坐标轴名称 Chart1.Title.Text.Text := '动态显示多条曲线'; Chart1.BottomAxis.Title.Caption := 'X轴'; Chart1.LeftAxis.Title.Caption := 'Y轴'; // 启动定时器,定时刷新曲线数据 Timer1.Enabled := True; end; procedure TForm1.Timer1Timer(Sender: TObject); begin // 每个定时周期更新曲线的数据 AddRandomData(TLineSeries(Chart1.Series[0])); AddRandomData(TLineSeries(Chart1.Series[1])); end; procedure TForm1.AddRandomData(Series: TLineSeries); begin // 随机生成曲线的数据点 Series.Add(Random(100), Random(100)); // 更新图表显示 Chart1.AutoRepaint := True; end; end. ``` 这是一个简单的示例,其中通过TLineSeries来显示两条曲线,并使用定时器Timer1来动态更新曲线的数据。在定时器的事件中,调用AddRandomData方法生成随机的曲线数据点,并通过Chart1.AutoRepaint := True来实时刷新图表显示。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值