我需要定时刷新一个form中的内容,因此需要判断这个form是否已经被create,是否可以直接调用,否则就要重新create。请各位指点!

解决方案 »

  1.   

    if not assigned(form) then 
    begin
      form := Tform.create(self);
      ..
    end
    else form.show;
      

  2.   

    if not assigned(form1) then   //如果不存在就创建
       form1:=tform1.create(self)
    try
       form1.showmodal;
    finally
       form1.free;
       form1:=nil;
    end;
      

  3.   

    if form1=nil then
      form1:=Tform1.create(self);
    form1.show;
      

  4.   

    if form <> nil then
    begin
       Form := Tform.create(self)
       form.ShowModal;//要显示吗
    end
    else
      form.updata;
      

  5.   

    if not assigned(form) then 
    begin
      form1 := Tform.create(self);
    end;form1.show;注意:
    要在form 的close事件中写:form=nil;
      

  6.   

    if not assigned(form1) then 
    begin
      form1 := Tform.create(self);
    end;form1.show;注意:
    要在form1 的close事件中写:action := cafree;
    form1 := nil;
      

  7.   

    if not assigned(Form1) then   //指针为空创建
       Form1:=TForm1.create(self)
    try
      ......
      Form1.showmodal;
    finally
      Form1.Free;
    end
      

  8.   

    在Form1.free 后加上 Form1:= nil ;
    更能确定