TProgressBar与TStatusBar

  ProgressBar1.Parent := StatusBar1;                      //加载ProgressBar到状态栏
  ProgressBar1.Top := 2;　　　　　　　　　　　　　　//设置位置
  ProgressBar1.Left := StatusBar1.Width div 2 + 1;  

var

　fileNum: Integer;

begin 

　StatusBar1.Panels.add;

 

   ProgressBar1.Position := 0;

   ProgressBar1.Max := fileNum;

   ProgressBar1.Position := 0;

   ProgressBar1.Position := ProgressBar1.Position + 1;

   StatusBar1.Panels[0].Text := '找到 ' + IntToStr(fileNum) + ' 个文件';

end;