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);
解决方案 »
- 如何在RichEdit中实现上标下标
- 在DELPHI5.0中,如何安装EHLIB?
- 关于Access数据库中OLE object类型数据的存储和读取问题,请各位高手赐教
- 100分求助啊:关于BPL中的三个问题,高手请过来看看啊。分不够还可以加啊
- 号召:大家赶快到Borland的Qualiti Central中建议把D2005的ActiveForm向导恢复出来!
- 如何创建一个自定义的TMyForm?
- delphi7中調用access報表
- 关于在Delphi中控制Wps,AutoCad的问题,请开发过文件管理系统的朋友过来看一下!
- 问题简单,分数多多~~~~请进
- 数据库指针移动问题:将数据库指移到第10条记录,是table控件,帮我写一条命令.
- delphi中richeview的TRVOfficeConverter使用,保存word出错???
- dxdbgrid下拉菜单导入
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;