Author: Mike Shkolnik

How can I disable the any form movement?

Answer:

Always I saw a question: how can I move a window by hit in any part of form? 
But I never saw a reverse question: how to disable a movement. 

1   type
2     TyourForm = class(TForm)
3     private
4       { Private declarations }
5       procedure WMNCHitTest(var message: TWMNCHitTest); message WM_NCHITTEST;
6     end;
7   
8   procedure TyourForm.WMNCHitTest(var message: TWMNCHitTest);
9   begin
10    inherited;
11  
12    with message do
13      if Result = HTCAPTION then
14        Result := HTNOWHERE;
15  end;