应该就是作动态曲线的问题吧
我以前遇到过,后来解决了
用TeeChart 实现,有范例,加一点编程就可以实现。
procedure TDlgStat.dongtaiqux;
var
Titlestr:TstringList;
begin
Aseries:=TBezierSeries.Create(self);
Dbchart1.AddSeries(Aseries);
Aseries.FillSampleValues(1);
dbchart1.View3D:=False;
Aseries.ShowInLegend:=False;
//调节Axis 的结束位置
dbchart1.BottomAxis.EndPosition:=95;
num:=1;
timer1.Enabled:=true;
Aseries.SeriesColor:=clRed;
Aseries.Pointer.Style:=psDiamond;
Aseries.Pointer.HorizSize:=2;
Aseries.Pointer.VertSize:=2;
Aseries.BezierStyle:=bsBezier4;
arrbound:=high(arrint);
SetWindowPos(Self.handle,HWND_Top,0,0,755,633, SWP_SHOWWINDOW);
Self.SetFocus;
With Aseriesdo
begin
Delete(0);
end;
tmpX:=1;
end;
procedure TDlgStat.Timer1Timer(Sender: TObject);
begin
if num<arrbound then
begin
With Aseriesdo
begin
//反应每次的 横坐标的变化幅度
//tmpX:=XValues[1]-XValues[0];
//Delete(0);
// 横坐标是否从0开始
//delete(1);
AddXY(XValues.Last+tmpX,arrint[num],'',clTeeColor);
end;
num:=num+1;
end
else
begin
timer1.Enabled:=False;
showmessage('Finished!');
end
end;