procedure TFormMain.Timer1Timer(Sender: TObject);
begin
inherited;
iPlot1.Channel[0].TitleText:='白石监测点';
iPlot1.Channel[1].TitleText:='芳村监测点';
iPlot1.Channel[0].AddYElapsedSeconds(Random(30));
iPlot1.Channel[1].AddYElapsedSeconds(Random(30));
end;
procedure TFormMain.FormShow(Sender: TObject);
begin
inherited;
iPlot1.XAxis[0].Span := 10;
iPlot1.YAxis[0].Span:=30;
iPlot1.XAxis[0].Title := '时间(秒)';
iPlot1.YAxis[0].Title:='水位(米)';
end;
版权声明:本文为hnxxcxg原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接和本声明。