用DELPHI在状态栏中显示进程条

领测软件测试网

　end; 

　　关键问题解决之后，我们来一个小例子，这样就可以有一个全局的印象了，控件的摆放如（图3）所示，编写代码如下：



控件的摆放 

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
ProgressBar1.Position := 0;
ProgressBar1.Max := 100;

文章来源于领测软件测试网 https://www.ltesting.net/