delphi_进度条

unit FrmProgressUnit; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; type TFrmProgress = class(TForm) ProgressBar: TProgressBar; procedure FormShow(Sender: TObject); private FProgressMin:Integer; FProgressMax:Integer; FProgressPostion:Integer; procedure SetProgressMax(const Value: Integer); procedure SetProgressMin(const Value: Integer); procedure SetProgressPostion(const Value: Integer); public property ProgressMin:Integer read FProgressMin write SetProgressMin; property ProgressMax:Integer read FProgressMax write SetProgressMax; property ProgressPostion:Integer read FProgressPostion write SetProgressPostion; end; var FrmProgress: TFrmProgress; implementation {$R *.dfm} procedure TFrmProgress.FormShow(Sender: TObject); begin Application.ProcessMessages; end; procedure TFrmProgress.SetProgressMax(const Value: Integer); begin FProgressMax := Value; ProgressBar.Max:=FProgressMax; end; procedure TFrmProgress.SetProgressMin(const Value: Integer); begin FProgressMin := Value; ProgressBar.Min:=FProgressMin; end; procedure TFrmProgress.SetProgressPostion(const Value: Integer); begin FProgressPostion := Value; ProgressBar.Position:=FProgressPostion; end.