Mover un form sin bordes arrastrando en FMX

[farute]

Empezado por farute

alguna sabe como se hace para mover un form sin bordes arrastrando pero en FMX (firemonkey)

gracias

solucionado y muy simple:

Código Delphi [-]
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
self.StartWindowDrag;
end;

metiendo en el uses el System.UITypes si no lo tenías

[ecfisa]

Gracias por publicar la solución

Saludos

[Casimiro Notevi]