如何在一个Form中检查另一个Form是否已创建或存在?

Question

如题。

Answer 1

如检查datefrm是否存在
  if not Assigned(datefrm) then datefrm:=Tdatefrm.Create(application);
                                     datefrm.ShowModal

Answer 2

if someFrm = nil then
   ShowMessage('Not Created')
else
   ShowMessage('Created');

Answer 3

这样的判断好像只能用一次，当关闭待检查Form后，再次检测Form是否存在就失效了。

Answer 4

有一个办法,在onclose事件中将Form1:=nil;
然后用assigned(Form1)来判断
Delphi没有提供现成的函数用来判断一个类变量是否实例化,A big pity to borland!