Fórum Como mover o Form sem a barra de titulo no FMX? queria criar uma nova barra de titulos. #595187

procedure MovimentaObject(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer;Formulario:TForm);
var ObjectPos,MousePosMov:TPoint;Pt:TPoint;fHandle:HWND;
begin
  GetCursorPos(Pt);
  ObjectPos.X:=Formulario.Left;
  ObjectPos.Y:=Formulario.Top;
  if(Sender is TForm)then
    fHandle:=TWinControl(Sender).Handle
  else
    fHandle:=TWinControl(Sender).Parent.Handle;
  while DragDetect(fHandle,ObjectPos) do
  begin
    GetCursorPos(MousePosMov);
    Formulario.Left:=MousePosMov.X-X-3;
    Formulario.Top:=MousePosMov.Y-Y-3;
    Application.ProcessMessages;
  end;
end;

MovimentaObject(sender,button,shift,x,y,Form1);