Delphi7中利用定时器和TRzProgressBar去显示进度条

Timer需要修改的属性为interval（间隔）为1000ms；然后修改OnTimer事件

利用定时器可以显示一个时钟；思路就是1s内显示一下时钟;

例如在窗体中添加一个Label，然后再OnTimer事件中添加一个语句：Label.caption := TimetoStr(time);

TRzProgressBar组件

需要修改的属性为 ShowPercent 是否显示百分比?

TotalParts 定义进图条的长度，这里设置为30

BorderOuter定义进度条外框的轮廓，这里设置为fsFlat

parentFlag=false;不显示父窗体的颜色；

unit Uni_ComponentTest;

interface

uses
  Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,ComCtrls,RzPrgres;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    pgb: TRzProgressBar;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if pgb.PartsComplete < pgb.TotalParts then
    pgb.PartsComplete := pgb.PartsComplete + 1
  else
    pgb.PartsComplete := 0;
end;

end.

效果如下