Delphi7制作下载进度条

1、打开Delphi7集成开发环境，在默认工程的Form1窗体放一个Button1控件和一个Timer1控件，设置Timer1的Enabled属性为False.

2、在Unit1.pas文件的implementation下添加以下代码：uses Gauges;var Gauge1: TGauge;这个控件用来显示进度。

5、F9运行程序，点击Button1按钮，可以看到进度条，当进度条到终点时，进度条所在窗体自动消失,非常适合程序下载进度显示