工控控件组iocomp的iplot控件的使用

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;

posted @ 2008-11-04 15:00  delphi中间件  阅读(1041)  评论(0编辑  收藏  举报