delphi 中的ProgressBar怎么与函数联系

Question

delphi 中的ProgressBar怎么与函数联系起来；就是函数执行时显示；结束时关闭；看到整个函数的进度！（急用）

Answer 1

var i:integer;   
begin   
  ProgressBar1.Min:=0;     
  ProgressBar1.Max:=100;   
  ProgressBar1.Visible := true;  //执行时开始显示
  for   i:=1   to   100   do   
  begin   
    ProgressBar1.Position:=i;     //执行中（有大循环)要计算进度
    Application.ProcessMessages;   
    sleep(10);   
  end;  
  ProgressBar1.Visible := false;  //执行完关闭 
end;
只有当函数的主体部分是大循环的时候，即是可以计算进度的时候，用进度条才是合理的。如果只是耗时而无法计算进度的，请考虑使用一个来回滚动的gif