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.

效果如下

最后

以上就是长情小土豆最近收集整理的关于Delphi7中利用定时器和TRzProgressBar去显示进度条的全部内容，更多相关Delphi7中利用定时器和TRzProgressBar去显示进度条内容请搜索靠谱客的其他文章。