Delphi 7将进度条放在状态条里面

 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;