unit unitForm1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Status: TStatusBar;
    Button1: TButton;
    procedure StatusDrawPanel(StatusBar: TStatusBar; Panel:
      TStatusPanel; const Rect: TRect);
    procedure Button1Click(Sender: TObject);
  private
    progress: TProgressbar;
    StatusDrawRect: TRect; //記錄要插入狀態(tài)條特技的坐標范圍
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.StatusDrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  StatusDrawRect := rect; //記錄要實現(xiàn)狀態(tài)條特技的坐標范圍
end;


procedure TForm1.Button1Click(Sender: TObject);
var i, count: integer;
  staPanleWidth: integer;
begin
  progress := TProgressbar.create(form1);
  count := 3000; //進程條的最大值
  staPanleWidth := status.Panels.Items[2].width;
  //由于進程條的很寬，所以需要改變狀態(tài)條嵌板的寬度，這里先保存它的寬度。
  status.Panels.Items[2].width := 150; // 改變寬度
  status.repaint;
  with progress do
    begin
      top := StatusDrawRect.top;
      left := StatusDrawRect.left;
      width := StatusDrawRect.right - StatusDrawRect.left;
      height := StatusDrawRect.bottom - StatusDrawRect.top;

      //設定進程條的寬度和高度
      visible := true;
      try
        Parent := status; //該進程條的擁有者為狀態(tài)條status
        Min := 0; Max := Count; //進程條的最大和最小值
        Step := 1; //進程條的步長
        for i := 1 to Count do
          Stepit; // 累加進程條
        ShowMessage('現(xiàn)在，進程條將要從內存中被釋放');
      finally
        Free; //釋放進程條
      end; //try
    end; //with
  status.Panels.Items[2].width := staPanleWidth; //恢復狀態(tài)條嵌板的寬度
end; //begin

end.