如何通过button让窗口不可移动？

Question

求救！

Answer 1

type   
      TForm1   =   class(TForm)   
      private   
        procedure   wmnchittest(var   msg:twmnchittest);message   wm_nchittest;   
          {   Private   declarations   }   
        ...   
    
  procedure   TForm1.wmnchittest(var   msg:twmnchittest);   
  begin   
  inherited;   
  if   (htcaption   =   msg.result)   then   msg.result:=htclient;   
  end; 
上面的代码是禁止窗体移动的，如果你的要求是需要按一下button使窗体静止移动的话，可以设一个全局的变量，在wmnchittest里判断这个变量的值，按button后改变变量值，不知能否达到你的要求

Answer 2

DeleteMenu(GetSystemMenu(Handle,False),SC_MOVE,MF_DISABLED);

Answer 3

DeleteMenu(GetSystemMenu(Handle,False),SC_MOVE,MF_DISABLED);
----------------------------------------------------------------
如果我想再通过button使窗口又可以移动呢？