frmwait.pas

来自「关于利用DELPHI来进行企业级方案解决的著作的附书源码」· PAS 代码 · 共 39 行

unit frmWait;

interface

uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  StdCtrls, ExtCtrls, jpeg;

type
  TWaitForm = class(TForm)
    Image1: TImage;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WaitForm: TWaitForm;
procedure StartLoad(st1:String);
procedure EndLoad;

implementation

{$R *.DFM}
procedure StartLoad(st1:String);
begin
   Application.CreateForm(TwaitForm,WaitForm);
   WaitForm.Show;
   WaitForm.Update;
end;

procedure EndLoad;
begin
   WaitForm.Hide;
   WaitForm.Free;
end;

end.