如下所示:
f1:='Frm_Sand';
tf1:='TFrm_Sand';
//CreateMyForm(tf1,f1);
if Application.FindComponent(f1)=nil then
begin
if GetClass(Tf1) <> nil then
begin
with TForm(TComponentClass(FindClass(Tf1)).Create(application)) do
begin
name:=f1;
showmodal;
free;
end; end;
end
else
begin
TForm(Application.FindComponent(f1)).ShowModal;
free; end;
用以上代码生成了窗体frm_sand,然后在窗体frm_sand上又创建打开了一个窗体Form1,在FORM1中引用frm_sand.edit1.text的时候出错,若在引用前创建frm_sand实例,则显示的值为空
f1:='Frm_Sand';
tf1:='TFrm_Sand';
//CreateMyForm(tf1,f1);
if Application.FindComponent(f1)=nil then
begin
if GetClass(Tf1) <> nil then
begin
with TForm(TComponentClass(FindClass(Tf1)).Create(application)) do
begin
name:=f1;
showmodal;
free;
end; end;
end
else
begin
TForm(Application.FindComponent(f1)).ShowModal;
free; end;
用以上代码生成了窗体frm_sand,然后在窗体frm_sand上又创建打开了一个窗体Form1,在FORM1中引用frm_sand.edit1.text的时候出错,若在引用前创建frm_sand实例,则显示的值为空
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货