Delphi知识中心
www.delphi.ee
提供Delphi技术知识
与Delphi程序员共同进步


在线服务QQ:99923144 随时恭候您的光临
首页 基础知识 WIN系统 组件使用 组件开发 数据库 ACTIVEX 多媒体技术 网络技术 关于
文章类别:基础知识    你尚未登陆,会员功能无法使用,请从 网站首页 登陆。
  通用创建模态窗口  
 
通用创建模态窗口

procedure MyCreateForm(
InstanceClass: TComponentClass;
frm: TForm);
begin
if not assigned(frm) then
begin
Application.CreateForm(InstanceClass, frm);
try
frm.ShowModal;
finally
frm.Free;
frm:=nil;
end;
end else frm.ShowModal;
end;

MyCreateForm(TForm1, Form1);

 

在线服务QQ:99923144 Delphi程序员QQ群(139442)
Delphi知识中心 www.delphi.ee 最专业的Delphi技术资料网站