Form locken (Verschieben nicht möglich)

[Mirilin]

Delphi-Quellcode:

...
private
     procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
...
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
  inherited;
  if M.Result = htCaption then
    M.Result := 0;
end;

Das hat aber vielleicht irgendwelche Nebenwirkungen...