怎样在状态栏中显示进度条？

Question

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 544
  Height = 375
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 329
    Width = 536
    Height = 19
    Panels = <>
    SimplePanel = False
    object ProgressBar1: TProgressBar
      Left = 3
      Top = 4
      Width = 150
      Height = 13
      Min = 0
      Max = 100
      TabOrder = 0
    end
  end
end

Answer 1

//上边是按Alt+F12修改窗体代码
//不会就用下边的代码
procedure TForm1.FormCreate(Sender: TObject);
begin
  ProgressBar1.Parent := StatusBar1;
  ProgressBar1.Top := 2;
  ProgressBar1.Left := 2;
end;

Answer 2

//上边是按Alt+F12修改窗体代码
//不会就用下边的代码
procedure TForm1.FormCreate(Sender: TObject);
begin
  ProgressBar1.Parent := StatusBar1;
  ProgressBar1.Top := 2;
  ProgressBar1.Left := 2;
end;

Answer 3

会用进度条如会那只要把 StatusBar 的align设为alnone再把进度条放上去不就可以了吗

Answer 4

procedure TForm1.FormCreate(Sender: TObject);
begin
//状态栏上加图片哦
  Iamge1.Parent := StatusBar1;
  Iamge1.Top := 2;
  Iamge1.Left := 2;
end;

Answer 5

procedure TForm1.FormCreate(Sender: TObject);
begin
//按钮上面放按钮哦
  Button1.Parent := Button2;
  Button1.Top := 2;
  Button1.Left := 2;
end;

Answer 6

procedure TForm1.FormCreate(Sender: TObject);
begin
//这样是会错的哦
  Button1.Parent := Button1;
  Button1.Top := 2;
  Button1.Left := 2;
end;

Answer 7

unit StatusBarExt;interfaceuses
  Windows, Messages, SysUtils, Classes, Controls, ComCtrls;type
  TStatusBarExt = class(TStatusBar)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent);override;
  published
    { Published declarations }
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('rainbowsoft', [TStatusBarExt]);
end;{ TStatusBarExt }constructor TStatusBarExt.Create(AOwner: TComponent);
begin
  inherited;
  ControlStyle := ControlStyle + [csAcceptsControls];
end;end.