if Assigned

Question

目标为了生成一个子窗口，并这个子窗口能随时反复开关。
var 
  Fmaina:TF6_say;
begin
 if not Assigned(Fmaina)  then
  Fmaina:=TF6_say.Create(Application);
  Fmaina.show;这个东东不好用不显示建立任何窗口 if Assigned(Fmaina)  then
  Fmaina:=TF6_say.Create(Application);
  
第二段却建造可以重复建N多相同子窗口。
                            

Answer 1

if  Assigned(Fmaina) then
 Fmaina.BringtoFront
else
Fmaina:=TFmaina.create(self);
Fmaina.show;

Answer 2

还要在Fmaina.onClose 里面加上Fmaina:=nil;