怎么把FORM锁定不让用户去拖拉
请提供方法或者代码
谢谢

解决方案 »

  1.   

    private
    procedure WMNCHitTest(var Msg: TMessage); message WM_NCHITTEST;.....
    procedure TForm1.WMNCHitTest(var Msg: TMessage);
    begin
    inherited; // 这样,移动就不可能了...
    Msg.Result := HTCLIENT;
    end;procedure TForm1.Button5Click(Sender: TObject);
    begin
        close;
    end;
      

  2.   

    To naughtyboy()
       这样的话连菜单都不能动了.....