大家好，如何控制 Gauge 控件，让他在3秒种内，添完内容 急，急，菜鸟，

Question

用Timer控件，比如分成CGUGE的最大值是100的话，
则将Timer的INTERVAL设为3000/100=30；每次加
将CGAUGE的POSITION加1。

Answer 1

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  form2.Gauge1.Progress:= gauge1.Progress+100;
  if form2.Gauge1.Progress=3000 then
  begin
  if form1.Comm1.SendDataEmpty=true then
    showmessage('连接成功')
  else
    showmessage('连接失败,请选择正确的COM口或打开PHS970') ;
  end;
  form2.Timer1.Enabled:=false;end;
我的程序有错，希望指导，上面的可能是DELPHI5，6里面没有POSITION

Answer 2

大家好，如何跳出 TIMER控件的 ONTIME 循环，我在3秒钟内，每100毫秒执行一次，3秒完后，如何跳出来 ，

Answer 3

你可以加一个判断条件呀，如果条件满足（如CGUGE的POSITION小于最大值）
就执行，否则设其ENABLED=FALSE或INTERVAL=0。