progress.pas

用户名：SYSTEM 密码：空 第一次运行请先恢复数据库 DATABASE 到SQL服务器

unit Progress;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseForm, StdCtrls, Buttons, Gauges, ExtCtrls;

type
  TfProgress = class(TfBaseForm)

    Panel1: TPanel;
    labMessage: TLabel;
    Gauge: TGauge;
    btnCancel: TBitBtn;
    procedure btnCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
     private
    { Private declarations }
  public
    { Public declarations }
    IsCancel:Boolean;
    procedure DisableCancel;
    procedure EnableCancel;
    procedure IniProgress(const strMsg:String;Const Max:Integer;const EnabledCancel:Boolean);
    procedure SetProgress(Const intProgress:Integer);
    procedure StepProgress;
    procedure SetMessage(Const strMsg:String);
  end;

var
  fProgress: TfProgress;

implementation

{$R *.dfm}

procedure TfProgress.btnCancelClick(Sender: TObject);
begin
  inherited;
  if application.MessageBox('眤痷