将进度条放在状态条里面

Delphi 7

 

uses commctrl;

 

 

//一般放到formshow里面
var
  r: TRect;
begin
  sbMain.ControlStyle := sbMain.ControlStyle + [csAcceptsControls];

  sbMain.Perform(SB_GETRECT, 1, Integer(@R));

  pbProgress.Parent := sbMain;
  pbProgress.Top    := r.Top;
  pbProgress.Left   := r.Left;
  pbProgress.Width  := r.Right - r.Left;
  pbProgress.Height := r.Bottom - r.Top;
  pbProgress.Visible:= false;   //使用时要显示
end;