ステータスバーにプログレスバーを埋め込む

ステータスバーの中に格納されたプログレスバーを実現するには，ステータスバーの親コントロールをプログレスバーにして，表示位置を調整してやればよい。

次のコードをFormCreateに書いてみましょう。

  ProgressBar.Parent := StatusBar;
  ProgressBar.Left := 0;
  ProgressBar.Top := 2;
  ProgressBar.Width := StatusBar.Panels[0].Width;
  ProgressBar.Height := StatusBar.Height - 2;