初试化过程:
uses DateUtils;
var
tmpTime : TDateTime;
begin
tmpTime := Now;
with Chart.BottomAxis do begin //初始化示向度Chart
Automatic := false;
DateTimeFormat := 'hh:mm:ss';
SetMinMax(IncMinute(tmpTime, -1), tmpTime);//-1是一分钟
Increment := (tmpTime - IncMinute(tmpTime, -1)) / 4;//4是你的坐标分隔
end;
在你加数据时,控制坐标移动
with Chart.BottomAxis do begin
Automatic := false;
DateTimeFormat :='hh:mm:ss';
SetMinMax(IncMinute(mMeasureTime, -1), mMeasureTime);//mMeasureTime是你数据的时间。例mMeasureTime:=now;
end;