Как запретить перемещение формы?

[Marsel737]

Всем доброго времени суток.

Подскажите как запретить премещение формы, вот такой код не работаетна win7:

type 
  TyourForm = class(TForm) 
  private 
    { Private declarations } 
    procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST; 
  end; 

procedure TyourForm.WMNCHitTest(var Message: TWMNCHitTest); 
begin 
  inherited; 

  with Message do 
    if Result = HTCAPTION then 
      Result := HTNOWHERE; 
end;

[mihali4]

Попробуйте без изысков:

(...) 

type 
    TyourForm = Class( TForm ) 
        Private 
            Procedure OnMove( Var Msg : TWMMove ); Message WM_MOVE; 
end; 

(...) 

procedure TyourForm.OnMove( Var Msg : TWMMove ); 
begin 
    Inherited; 
    (...) //тут верните форму на прежнее место (после проверки координат)
end;

[Kotofff]

Попробуйте без изысков:

Возникает сильное мелькание.


Marsel737, попробуй так :

private
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
......
......
......
implementation


 procedure TyourForm.WMSysCommand(var Msg: TWMSysCommand);
 begin
   if ((Msg.CmdType and $FFF0) = SC_MOVE) then
   begin
     Msg.Result := 0;
     Exit;
   end;
   inherited;
 end;

[Marsel737]

Kotofff, идеально, спс огромное

mihali4, да. действительно мигает, но всё равно спс