问题同上

解决方案 »

  1.   

    也可以先form.hide,调用时在form.show;
      

  2.   

    procedure Tmain.CustomItem16Click(Sender: TObject);
    begin
    if findmdiwindow=true then  begin
    showmessage('请关闭当前窗口');exit;end;
     flag:=1;
     planmanage:=tplanmanage.create(self);
     factoryname:='一分厂';
     planmanage.Caption:=planmanage.Caption+'-['+factoryname+']';
     
    end;
      

  3.   

    1、form2.showmodal:=false;
    2、用copy()函数。
      

  4.   

    在auto create forms栏里把这个(frm_xx)窗体去了,然后再相应的事件里:
    try
     frm_xx:=tfrm_xx.create(application);
     frm_xx.show;
    finally
     frm_xx.free;
    end;