ufrmwait.pas

来自「小银行系统」· PAS 代码 · 共 41 行

unit ufrmWait;

interface

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

type
  TfrmWait = class(TForm)
    pnlWait: TPanel;
    lbWait: TLabel;
    AnimatePicture: TAnimate;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    constructor CreateWithParam(aCaption : String; AOwner : TComponent);
  end;
var
 frmWait : TfrmWait;

implementation

{$R *.DFM}

constructor TfrmWait.CreateWithParam(aCaption: String; AOwner: TComponent);
begin
  Inherited Create(AOwner);
  lbWait.Caption := aCaption;
end;

procedure TfrmWait.FormCreate(Sender: TObject);
begin
  Animatepicture.Active :=True;
  AnimatePicture.Refresh;
end;

end.