简单的等待窗口

来源：互联网发布：什么是关键字c语言编辑：程序博客网时间：2024/04/30 01:20

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

//调用和关闭的方法

//在调用的画面的代码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;interfaceuses 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);beginend;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;