Delphi在StatusBar上绘制ProgressBar

首先，在TForm的私有域，也就是private下设置两个变量ProgressBar、ProgressBarRect，其中ProgressBar为 TProgressBar类型，ProgressBarRect为TRect类型，完整的定义如下：

type
TForm1 = class(TForm)
......
private
ProgressBar: TProgressBar;
ProgressBarRect: TRect;
end;

然后在StatusBar的DrawPanel事件中添加代码：

ProgressBarRect := Rect;

完整代码如下：

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
ProgressBarRect := Rect;
end;

最后我们用一个Button组件来测试，代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
i, StepCount: integer;
begin
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;
//Smooth := True;

try
Parent := StatusBar1;
Min := 0;
Max := StepCount;
for i := 1 to stepCount do
begin
StepIt;
end;
MessageDlg('状态栏进度条演示操作已完成！', mtInformation, [mbOK], 0);
finally
Free;
end;
end;
end;
http://www.lsworks.net/article/43.html