function ShowmodalForm(ATfromclass: TFormClass; aFormName, aHint: string): Integer;
var
WindowList: Pointer;
ActiveWindow: HWnd;
Frm: TForm;
begin
Frm := ATfromclass.Create(nil);
try
Frm.Show;
repeat
Application.HandleMessage;
until not Frm.Showing;
finally
FreeAndNil(Frm); 动态创建后到这里无法释放,写这个函数的原因是为了,在创建的时候显示一个提示框,创建完成后关闭提示框
end;
end;fromCreate(nil);
var
WindowList: Pointer;
ActiveWindow: HWnd;
Frm: TForm;
begin
Frm := ATfromclass.Create(nil);
try
Frm.Show;
repeat
Application.HandleMessage;
until not Frm.Showing;
finally
FreeAndNil(Frm); 动态创建后到这里无法释放,写这个函数的原因是为了,在创建的时候显示一个提示框,创建完成后关闭提示框
end;
end;fromCreate(nil);
create
show
//关闭提示窗口我要的是这种功能ShowModal
显示后无法关闭提示窗口
begin
Application.CreateForm(TForm2, Form2);
Form2.ShowModal;
Form2.Free;
end;第二个单元procedure TForm2.FormActivate(Sender: TObject);
begin
Self.OnActivate := NIL;
PostMessage(Handle , WM_CLOSE , 0 , 0);
end;
begin
with TForm2.Create(Application) do begin
ShowModal;
Free;
end;
end;
var
Frm: TForm;
begin
Frm := ATfromclass.Create(nil);
Frm.Hint:=aHint;
Frm.ShowModal;
FreeAndNil(Frm);
end;
begin
with ATfromclass.Create(nil) do begin
Hint:=aHint;
ShowModal;
Free ;
end;
end;