我有两个form , form1和form2,都为无边框的 ,现在我在form2上放了一个按钮,点击后关闭form2,但是提示出错,好象是application这个东西没结束,和form1还有交流。我想完全释放掉form2,因为每次调用form2上的控件时会出现声音,隐藏的话,声音会还在继续。但是我查了一些贴子,可以在form1中创建form2而不是uses form2可以解决这个问题,但是不知道具体该怎么做,我想在软件打开时,两个界面都同时显示出来,但是formshow函数在做无边框的拖动时已经用了,这个form2该怎么显示出来?请大家都来看看,帮一下!

解决方案 »

  1.   

    你关闭用API函数,发一个消息关闭,postMessage()
      

  2.   

    在form2的OnClose中写 Action := caFree就能释放掉,最好加上form2 := nil;
      

  3.   

    在form2的OnClose中写 Action := caFree就能释能掉,最好加上form2 := nil;
    这个可以能释掉,但是再打开时就出错了!
    谁能来看看,怎么解决!
      

  4.   

    要打开时用:
    if not Assigned(Form2) then   //如果窗体form2还没有创建或被销毁则创建 
      Form2 := TForm2.Create(Self);
    form2.show;
    关闭form2时:
    在form2的OnClose中写 Action := caFree