不要在FormCloseQuery里写什么的,
只要在窗体上把那个(X)禁止掉就行

解决方案 »

  1.   

    EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE,MF_BYCOMMAND or MF_GRAYED);
      

  2.   

    晚了!~
    楼上说得不错,我已经试过了。或者:
    在OnClose事件中有一个Action参数,它有四种可选的值:
     caNone:不允许窗体关闭。
     caHide:隐藏窗体,但窗体并没有被真正关闭。
     caFree:关闭窗体。
     caMinimize:最小化窗体,不关闭窗体。要关闭失效可在OnClose中令Action := caNone 就可以了
      

  3.   

    我也试过了,可以,但对我没用啊,
    我用了VCLSKIN,不用的时候可以,但用了就不行啊
      

  4.   

    EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE,MF_BYCOMMAND or MF_GRAYED);普通可以,
    但我的窗体用了VCLSKIN就没用了啊,
      

  5.   

    不要用FormClose 这些的啊
    我的窗体当然要可以关闭的,只是不要通过上面那个(X)
    关闭窗体是自己的按钮里写的代码啊,
      

  6.   

    form.borderstyle:=bsnone
    设置 如上的FORM属性。
      

  7.   

    form.borderstyle:=bsnone
    的时候连标题栏都没有了
    不行啊
      

  8.   

    软魔王都已经说了
    在OnClose事件中有一个Action参数,它有四种可选的值:
     caNone:不允许窗体关闭。
     caHide:隐藏窗体,但窗体并没有被真正关闭。
     caFree:关闭窗体。
     caMinimize:最小化窗体,不关闭窗体。
     你可以设个全局变量(例如var I:Integer),如果是点击你自己的关闭按钮,则I:=1;其它则I:=0;然后在窗体的onclose事件里面判断I,如果=0,则action:=caFree;否则,action:=caMinimized或者caHide。
      

  9.   

    FormClose Event怎么用?
    没用过?
      

  10.   

    设个全局变量(例如var I:Integer),如果是点击你自己的关闭按钮,则I:=1;其它则I:=0;然后在窗体的onclose事件里面判断I,如果=0,则action:=caFree;否则,action:=caMinimized或者caHide。这个我做了,可以实现了
    但FormClose Event怎么用?没试过,各位`说详细点啦
      

  11.   

    不好意思,把S.F.打反了,^_^
    FormClose Event翻译成中文就是窗体事件,也就是FORM的ONCLOSE事件。