wait.pas.svn-base

来自「一个用Delphi开发的ERP软件」· SVN-BASE 代码 · 共 43 行

unit Wait;

interface

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

type
  TWaitForm = class(TForm)
    Label1: TLabel;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WaitForm: TWaitForm;

implementation

uses CommFun;

{$R *.DFM}

procedure TWaitForm.FormCreate(Sender: TObject);
begin
  Font.Name:=AFontName;
  Caption:=GetDBString('UMS10000012');  //请稍侯...
  Label1.Caption:=GetDBString('UMS10000013');  //正在处理，请稍侯...
end;

procedure TWaitForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//  Action:=caHide;
end;

end.