progressdialog.pas

来自「从文本文件象Oracle数据库导入数据」· PAS 代码 · 共 46 行

unit ProgressDialog;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Gauges, StdCtrls;

type
  TfrmProgressDialog = class(TForm)
    ggPrgb: TGauge;
    lblMsg: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    fMsg: string;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent; AMsg: string); overload;
  end;

var
  frmProgressDialog: TfrmProgressDialog;

implementation

{$R *.DFM}

{ TfrmProgressDialog }

constructor TfrmProgressDialog.Create(AOwner: TComponent; AMsg: string);
begin
  fMsg := AMsg;
  inherited Create(AOwner);
end;

procedure TfrmProgressDialog.FormCreate(Sender: TObject);
begin
  if fMsg = '' then
    lblMsg.Caption := '正在进行系统操作......'
  else
    lblMsg.Caption := fMsg;
end;

end.