简单的等待窗口

//1.主画面操作的等待窗口

{*************************************************************************** * FMWait * 处理正在运行FORM * ***************************************************************************} unit FMAsync; interface uses WinProcs, Controls, StdCtrls, Classes, ExtCtrls, Forms; type TFM_Wait = class(TForm) PN_Frame: TPanel; PN_BackGround: TPanel; LT_Search: TLabel; LT_Wait: TLabel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); private { Private 宣言 } public { Public 宣言 } procedure CreateParams(var Params: TCreateParams); override; destructor Destroy; override; protected end; var FM_Async: TFM_Wait; implementation {$R *.DFM} {*************************************************************************** * CreateParams ParentWindow的指定 ***************************************************************************} procedure TFM_Wait.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); with Params do begin //WndParent := Application.MainForm.Handle; end; end; {*************************************************************************** * FormClose ***************************************************************************} destructor TFM_Wait.Destroy; begin Application.MainForm.Enabled := true; //self.SetParent(Application.MainForm); inherited; end; procedure TFM_Wait.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; Application.MainForm.Enabled := true; end; procedure TFM_Wait.FormCreate(Sender: TObject); begin Application.MainForm.Enabled := false; end; end.

 

//调用和关闭的方法

//在调用的画面的代码 FM_Async := TFM_Wait.Create(Application); FM_Async.LT_Search.Caption:='要等待的信息。。。'; Application.ProcessMessages; //关闭的方法（可写成一个方法方便调用） if FM_Async<> nil then begin // FM_Async.Hide; FM_Async.Close; FM_Async.Release; FM_Async := nil; end;

 

//2.如果在弹出的画面再弹等待画面用下面的等待窗口

//弹出画面

  btn_tanchu.Enabled:=false;
  Screen.Cursor := crHourglass
  fm_main.Hide;
  ItemForm:= TItemForm.Create(Application);
  btn_mingxi.Enabled:=true;
  Screen.Cursor := crDefault;
  Application.Processmessages;
  mr:=ItemForm.ShowModal;
  fm_main.Show;
  if mr =mrOK then begin
    ExecuteQuery();
    changeGridContent();
  end;

 

//弹出画面2

{*************************************************************************** * FMWait * 处理正在运行FORM * ***************************************************************************} unit FMWaitS; interface uses WinProcs, Controls, StdCtrls, Classes, ExtCtrls, Forms; type TFM_WaitS = class(TForm) PN_Frame: TPanel; PN_BackGround: TPanel; LT_Search: TLabel; LT_Wait: TLabel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure LT_WaitClick(Sender: TObject); private { Private 宣言 } FormPa : TForm; public { Public 宣言 } procedure CreateParams(var Params: TCreateParams); override; procedure Release; constructor Create(AOwner: TComponent; FormTmp: TForm); destructor Destroy; override; protected end; var FM_WaitS: TFM_WaitS; implementation {$R *.DFM} procedure TFM_WaitS.Release; begin FormPa.Enabled := true; inherited; end; constructor TFM_WaitS.Create(AOwner: TComponent; FormTmp: TForm); begin FormPa := FormTmp; inherited Create(AOwner); end; {*************************************************************************** * CreateParams ParentWindow的指定 ***************************************************************************} procedure TFM_WaitS.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); with Params do begin //WndParent := Application.MainForm.Handle; end; end; {*************************************************************************** * FormClose ***************************************************************************} destructor TFM_WaitS.Destroy; begin //Application.MainForm.Enabled := true; FormPa.Enabled := true; //self.SetParent(Application.MainForm); inherited; end; procedure TFM_WaitS.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; //Application.MainForm.Enabled := true; FormPa.Enabled := true; end; procedure TFM_WaitS.FormCreate(Sender: TObject); begin //Application.MainForm.Enabled := false; //FormPa.Enabled := false; (*{BAI INSERT FONT HEIGHT START} Font.Charset:=SHIFTJIS_CHARSET; Font.Height:=-16; Font.Name:='MS Sans Serif'; {Font.Pitch:=fpFixed;} LT_Search.Font:=Font; LT_Wait.Font:=Font; {BAI INSERT FONT HEIGHT START}*) end; procedure TFM_WaitS.LT_WaitClick(Sender: TObject); begin end; end.

 

//调用和关闭的方法

//调用 FM_WaitS:= TFM_WaitS.Create(Application,fm_main_c); FM_WaitS.LT_Search.Caption:='正在处理中。。。'; //关闭 if FM_WaitS <> nil then begin FM_WaitS.Close; FM_WaitS.Release; FM_WaitS := nil; end;