Fórum Travar formulário #229178

procedure WMMoving(var Message: TWMMoving); message WM_MOVING;
procedure WMWindowPosChanging(var Message: TWMWindowPosChanging); message WM_WINDOWPOSCHANGING;

procedure TForm1.WMMoving(var Message: TWMMoving);
begin
  // processa a mensagem de arrasto
  Message.DragRect^ := BoundsRect;
end;

procedure TForm1.WMWindowPosChanging(var Message: TWMWindowPosChanging);
begin
  // responsável por ajustar a posição final, antes q seja movida
  Message.WindowPos.x := Left;
  Message.WindowPos.Y := Top;
  Message.Result := 0;
end;