waitwindow.pas

感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡记录器所具有的对持卡人刷卡卡号、时间、次数进行读取贮存等功能

unit WaitWindow;

interface

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

type
  TfrmWaitWindow = class(TForm)
    Timer1: TTimer;
    lblText: TLabel;
    procedure FormHide(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormDeactivate(Sender: TObject);
    procedure lblTextClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ShowMsg(sMsg:string);
  end;

var
  frmWaitWindow: TfrmWaitWindow;

implementation

{$R *.DFM}

procedure TfrmWaitWindow.ShowMsg(sMsg:string);
var nHeight :integer;
begin
	if sMsg ='' then
    begin
    	Self.Hide;
        Exit;
    end;

    lblText.Caption :=sMsg;

    nHeight :=Length(sMsg) div 46 +1;
    Self.Height :=nHeight *16;

    Self.Show;
    Application.ProcessMessages;
    Timer1.Enabled :=True;
    Timer1.Tag :=0;
end;

procedure TfrmWaitWindow.FormHide(Sender: TObject);
begin
	Timer1.Enabled :=False;
end;

procedure TfrmWaitWindow.Timer1Timer(Sender: TObject);
begin
	Timer1.Tag :=Timer1.Tag +1;
    if Timer1.Tag >=4 then Self.Hide;
end;

procedure TfrmWaitWindow.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
	if Key =VK_Escape then Self.Hide;
end;

procedure TfrmWaitWindow.FormDeactivate(Sender: TObject);
begin
	Self.Hide;
end;

procedure TfrmWaitWindow.lblTextClick(Sender: TObject);
begin
	Self.Hide;
end;

end.