plswait.pas

来自「详细说明:毕业论文中关于小型宾馆管理系统的详细设计毕 业论文中关于小型宾馆...」· PAS 代码 · 共 66 行

// (c) Chicony Software 2001
//
// When       Who  Why
// ---------  ---  ------------------------------------------------------------
// 2001.6.7   century Initial version
//
unit Plswait;

interface

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

type
  TPleaseWait = class(TForm)
    InfoMsg: TPanel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SwitchOn(msg: string);
    procedure SwitchOff;
  end;

var
  PleaseWait: TPleaseWait;

implementation

{$R *.DFM}

procedure TPleaseWait.SwitchOn(msg: string);
begin
     // Load message
     if msg='' then
        InfoMsg.Caption:='Please wait...'
     else
        InfoMsg.Caption:=msg;

     // Display ourselves
     if not Visible then Show;
     Repaint;
     Screen.Cursor := crHourGlass;
end;

procedure TPleaseWait.SwitchOff;
begin
     if Visible then Hide;
     Screen.Cursor := crDefault;
end;

procedure TPleaseWait.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     Screen.Cursor := crDefault;
end;

procedure TPleaseWait.FormDestroy(Sender: TObject);
begin
     Screen.Cursor := crDefault;
end;

end.