一般情况下，我们可以创建非模式对话框并在上面显示 进度条 。如果能够利用状态条，在状态条中动态地添加并
显示 进度条 ，将会更加方便直观。下面将讲述如何在Delphi 5中编程实现在状态条中动态地添加 进度条 。具体的
过程如下：
　　 1．在Delphi 5中通过菜单“File/New Application”创建一个新的工程。
　　 2．在窗体中添加一个 状态栏 组件StatusBar1，一个Button组件Button1。在 状态栏 编辑器中为 状态栏 添加两
个显示面板，因为后面将要在第二个面板中显示 进度条 ，所以将第二个面板的Style属性设置为psOwnerDraw。将
Button1组件的Caption属性设置为“演示操作”。
　　 3．在Unit1.pas文件的TForm1的类型定义中添加下面的变量定义：
　　
　　 private
　　 { Private declarations }
　　 progressBar:TProgressBar;// 进度条 组件
　　 progressBarRect:TRect; // 进度条 组件的尺寸
　　 public
　　 { Public declarations }
　　
　　 4．在 状态栏 的OnDrawPanel事件的处理过程中，获取将Style属性设置为psOwnerDraw的面板的尺寸。添加
StatusBar1组件的OnDrawPanel事件的处理过程如下：
　　 procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
　　 Panel: TStatusPanel; const Rect: TRect);
　　 begin
　　 // 进度条 组件的尺寸设定为状态条中的第二个显示面板的尺寸,因为该面板的Style属性已被设置为
　　 psOwnerDraw
　　 progressBarRect:=Rect;
　　 end;
　　 5．在按下按钮Button1组件时将执行一个模拟计算过程的循环操作，同时动态地在StatusBar1的第二个面
板中创建并显示ProgressBar组件，并将其父级设置为StatusBar1组件。添加Button1组件的OnClick事件的处理
过程如下：
　　 procedure TForm1.Button1Click(Sender: TObject);
　　 var
　　 // I为循环变量, StepCount为执行循环的总数目
　　 I,StepCount : Integer;
　　 begin
　　 //动态创建 进度条 组件progressBar
　　 progressBar:=TProgressBar.Create(Form1);
　　 StepCount:=10000; // 循环的总数目
　　 with progressBar do
　　 begin
　　 // 先确定 进度条 组件的尺寸和位置
　　 Top:=ProgressBarRect.Top;
　　 Left:=ProgressBarRect.Left;
　　 Width:=ProgressBarRect.Right－ProgressBarRect.Left;
　　 Height:=ProgressBarRect.Bottom－ProgressBarRect.Top;
　　 Visible:=True; // 使 进度条 可见
　　 try
　　 Parent:=StatusBar1; // parent属性设置为 状态栏 组件
　　 Min:=0;// 设定 进度条 的范围和步长
　　 Max:=StepCount;
　　 Step:=1;
　　 for I:=1 to StepCount do
　　 begin
　　 Stepit;// 循环使进度显示条累加
　　 end;
　　 MessageDlg(′演示操作已经完成!′, mtInformation, [mbOK], 0);
　　 finally
　　 Free;// 最后释放 进度条 组件占用的资源
　　 end;
　　 end;
　　 end;