超级菜鸟的问题！特简单！

Question

Onclick:事件
form2=new Tform2(application);
在form2的Onclose中
Action;=caFree;

Answer 1

to aningstar(乘风破浪终有时):　
这一句能编译吗？
form2=new Tform2(application);我是不是很笨啊？：（

Answer 2

MDI程序创建子窗体采用以下方法啦：fomr1:=tform1.create(application);                               form1.show;//注意不能用ShowModal;
                                  然后在其  Close事件里写：Action:=caFree;
 

Answer 3

追问一句：
怎样防止创建多个实例？
用API吗？VB里是这样的！
给个引子代码吧！大哥

Answer 4

这样创建
if not assigned(form1) then
   begin
     form1:=Tform1.create(Application);
     form1.show;
   edn;在onclose事件写上
Action;=caFree;

Answer 5

追问一句：
怎样防止创建多个实例？
用API吗？VB里是这样的！
给个引子代码吧！大哥

Answer 6

up
追问一句：
怎样防止创建多个实例？
用API吗？VB里是这样的！
给个引子代码吧！大哥 

Answer 7

if not assign(form2) then
form2:=Tform2.create(application);form2.distroy:
form2:=nil;

Answer 8

不好意思，前面写成Bcb了//创建时用
if not assign(form2) then  //判断是否已经创建
form2:=Tform2.create(application);
在Onclose()事件中
Action:=canFree;          //窗体释放
form2:=nil;               //把form指针设为空，这时assign(form2)返回false,
                          //前面的if not assign(form2) 返回true 

Answer 9

if not assigned(form1) then
  begin
    form1:=Tform1.create(Application);
    form1.show;//注意，这句根本不用写
  edn;在onclose事件写上
Action;=caFree;