怎样才能只关闭Form而不关闭整个程序?

在我的程序中有多个Form,一开始,我关闭主Form时,程序不会关闭,但我在主Form中加了一个xp_Form后,程序会连同一起关闭.怎么做?

解决方案 »

  1.   

    在OnCloseQuery的时间中CanClose 变量可以控制窗体的关闭了
      

  2.   

    dudunono(靖) :这样的话,Form关不了,程序也关不了.
      

  3.   

    在FORM 的 ONCLOSE 事件中
     
    Action := caMinimize;
      

  4.   

    以上的方法都不行,如果我没加xp_Form没有问题,但我加了Xp_Form后,运行时就是xp_Form的界面而不是Form1的界面了,似乎Form1的属性对xp_Form不起作用.
      

  5.   

    呵呵，我有时候也遇到这种事情，你向application.handle发送wm_syscommand里面的sc_minimize消息
      

  6.   

    在主窗体的onclose事件中添加:action:=cahide;
      

  7.   

    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      Action := caNone;
      Hide;
    end;
      

  8.   

    不好意思:这个问题我刚刚结过贴,但实际还是没有解决.楼上的方法用过后,用Close方法就不能退出程序了.而且死机.