Mover un form sin bordes arrastrando en FMX

[farute]

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

gracias

[farute]

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

gracias


solucionado y muy simple:

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]

^\||/^\||/^\||/