在状态栏里面加入进度条

这是个例子，
放个TStatusBar 然后建立3个TStatusPanel,
下面的代码把 ProgressBar 放到了第二个格子里面了。

var
  P: TProgressBar;
begin
  P:= TProgressBar.Create(self);
  p.Parent:= StatusBar1;
  p.Left:= StatusBar1.Panels[0].Width + StatusBar1.BorderWidth + 2;
  p.Top:= StatusBar1.BorderWidth + 2;
  p.Height:= StatusBar1.Height - (StatusBar1.BorderWidth + 2);
  p.Width:= StatusBar1.Panels[1].Width + StatusBar1.BorderWidth - 2;
  p.Position:= 50;
end;