Delphi 一个不错的弹出进度条的例子

//通过调用 BeginWaitProgress UpdateWaitProgress  EndWaitProgress这几个方法来实现

procedure IniApp;
begin
  BeginWaitProgress(Application.Handle, 10, Application);
  try
    VQUERCLASS := TQUERYClass.Create;
    VGridClass := TGridClass.Create;
    VCellClass := TCellClass.Create;
    Vfrm_TreeClass := Tfrm_TreeClass.Create;
    DM_QUERY := TDM_QUERY.Create(nil);
    VTRUNC_ID := CSys;
    VDefaultSelectDW := False; //默认的是选中单位树的所有节点
    VHorizontalSum := 0; //默认不求合计
    VVericalSum := 0; //默认不求合计
    VVER_ID := CSys;
    VCDSSYSDW := TClientDataSet.Create(nil);
    VCDSSYSQJ := TClientDataSet.Create(nil);
    VCDSSYSDIM := TClientDataSet.Create(nil);
    VCDSSYSDICT := TClientDataSet.Create(nil);
    VCDSSYSDICTVAL_Readonly := TClientDataSet.Create(nil);
    VCDSURPARAM_Readonly := TClientDataSet.Create(nil);
    VCDSSYSBASECOLSET := TClientDataSet.Create(nil);
    FCalcOneDWCDS := TClientDataSet.Create(nil);
    UpdateWaitProgress(-1);
    ReadCDSUR_SYS_DW(VCDSSYSDW);
    VCDSSYSQJ.Data := vdm.CDS_UR_TASK_PERD.Data;
    UpdateWaitProgress(-1);
    ReadCDS_SYS_DIM(VCDSSYSDIM);
    UpdateWaitProgress(-1);
    ReadCDSUR_SYS_DICT(VCDSSYSDICT);
    UpdateWaitProgress(-1);
    ReadCDSUR_SYS_DICT_VAL(VCDSSYSDICTVAL_Readonly);
    UpdateWaitProgress(-1);
    ReadCDSUR_PARAM(VCDSURPARAM_Readonly);
    UpdateWaitProgress(-1);
    ReadCDSUR_SYS_BASE_COL_SET(VCDSSYSBASECOLSET, '');
    UpdateWaitProgress(-1);
    RPTCalcOneDwFormula(FCalcOneDWCDS);
    UpdateWaitProgress(-1);
    AddCDSSYSIDX(DM_QUERY.VCDS_URSYSIDX);
    UpdateWaitProgress(-1);
  //加载任务数据
    ReadCDS_TASK(DM_QUERY.VTaskCDS);
    UpdateWaitProgress(-1);
    if VCDSSYSQJ.Active and (VCDSSYSQJ.ChangeCount > 0) then
      VCDSSYSQJ.MergeChangeLog;
    if DebugEnvironment then
    begin
      VCDSSYSDW.SaveToFile('VCDSSYSDW.xml');
      VCDSSYSQJ.SaveToFile('VCDSSYSQJ.xml');
      VCDSSYSDIM.SaveToFile('VCDSSYSDIM.xml');
      FCalcOneDWCDS.SaveToFile('FCalcOneDWCDS.xml');
      VCDSSYSDICTVAL_Readonly.SaveToFile('VCDSSYSDICTVAL_Readonly.xml');
    end;
  finally
    EndWaitProgress(Application.Handle);
  end;
end;

 

procedure BeginWaitProgress(AHandle: THandle;iMaxInt:integer;Comparant: TComponent = nil);
begin
  if not Assigned(FrmWaitProgress) then
  begin
    //Application.CreateForm(TFrmWaitProgress, FrmWaitProgress);
    //FrmWaitProgress := TFrmWaitProgress.Create(Comparant);
    FrmWaitProgress := TFrmWaitProgress.Create(nil);
  end;
  EnableWindow(AHandle, false);
  FrmWaitProgress.pb1.Max:=iMaxInt;
  FrmWaitProgress.Show();
  FrmWaitProgress.Update;
end;

procedure EndWaitProgress(AHandle: THandle);
begin
  if Assigned(FrmWaitProgress) then
  begin
    FrmWaitProgress.Close;
    FrmWaitProgress.Free;
    FrmWaitProgress := nil;
    EnableWindow(AHandle, True);
    SetActiveWindow(AHandle);
  end;
end;

procedure UpdateWaitProgress(iPos:integer);

begin
  if Assigned(FrmWaitProgress) then
  begin
    FrmWaitProgress.Update;
    if iPos=-1 then
    begin
      FrmWaitProgress.pb1.Position:=FrmWaitProgress.pb1.Position+1;
      if FrmWaitProgress.pb1.Position>=FrmWaitProgress.pb1.Max then
         FrmWaitProgress.pb1.Position:=FrmWaitProgress.pb1.Min;
    end
    else  begin
      FrmWaitProgress.pb1.Position:=iPos;
    end;
  end;
end;