不重复创建子窗体

[xuxugr]

if not IsWindowExists('frm_spbm') then
Application.CreateForm(Tfrm_spbm,frm_spbm);
frm_spbm.show;


function IsWindowExists(form_1:string):boolean ;
var com_count,i:integer;
begin
com_count:=strtoint((inttostr(Application.ComponentCount)))-1;
for i:=0 to com_count do
begin
if Application.Components[i].Name=form_1 then
break;
end;
if i > com_count then
result:=false
else
result:=true;
end;

这样不行


if not assigned(frm_spbm) then
Application.CreateForm(Tfrm_spbm,frm_spbm);
frm_spbm.show;
这样也不行，还是重复创建了，怎么回事

[taxi]

//这样也不行？
if not assigned(frm_spbm) then
frm_spbm := Tfrm_spbm.Create(Self);
frm_spbm.Show;

[taxi]

窗体关闭的时候不是销毁，只是不可见吧。
在OnClose中，将Action 设为 caFree，同时将frm_spbm 设为 nil应该可以了吧。
然后就可以用if Assinged(frm_spbm)进行判断了。

[delphi_911]

MDI中子窗体的OnClose中加上一句才能释放:

Action:=caFree;

[bruce20062006]

[Quote=引用 2 楼 delphi_911 的回复:]
MDI中子窗体的OnClose中加上一句才能释放:

Delphi(Pascal) code
Action:=caFree;
[/Quote]


我加了

在OnClose中，将Action 设为 caFree，同时将frm_spbm 设为 nil应该可以了吧。

nil我没加

[bruce20062006]

[Quote=引用 1 楼 taxi 的回复:]
窗体关闭的时候不是销毁，只是不可见吧。
在OnClose中，将Action 设为 caFree，同时将frm_spbm 设为 nil应该可以了吧。
然后就可以用if Assinged(frm_spbm)进行判断了。
[/Quote]


我的意思是我的窗体没有关加呀，也就是希望如果同样的窗体打开了就不需要再打开了，我都没关，应该是打开窗体时判断一下，if Assinged(frm_spbm)我也加了，没用