delphi 进度条

1.progressbar

进程控制条

主要的属性：Max，Min，Step

与Timer一起使用

 while(pb1.Position<pb1.Max) do      //pb1是progressbar进度条控件
   begin
    pb1.StepIt;

   end;

2.Gauge

与progressbar用途完全相同，所不同的是Gauge具有多种表现形式，如圆形，方形等。

主要的属性：Max，Min，Process

与Timer一起使用

procedure TForm1.tmr1Timer(Sender: TObject);
begin
  g1.Progress := g1.Progress + 1;//g1表示Gauge控件
end;

转载于:https://www.cnblogs.com/taofengli288/archive/2011/09/05/2167684.html