避免创建窗体的多个实例的问题

Question

在Tform1 tform2 的close事件里写
action := cafree;
form1 := nil;
 

Answer 1

我在close事件里有form1:=nil;
这个我知道，参数FormName传进的值一直是nil，所以一直会重复创建!

Answer 2

不懂，你是要在窗口中防止MDI子窗口创建多个实例，还是普通窗口防止多个实例。
这两种都可以在先查找窗口，如找到激活没找到创建不就可以
如第一种， 我有一个很好的函数，如要可寄

Answer 3

改成CreatFrom(var FormName:TForm;ClassName: TControlClass);就行了。

Answer 4

if not assign(form) then
  //创建
else
  //不创建

Answer 5

to hellion
[Error] SubFrm.pas(130): Types of actual and formal var parameters must be identical
var 是地址传递，我想是用这个，可总是出上面的错!