DelphiXE2 application Firemonkey -Comment déplacer une form FMX à l'aide de la souris

Bonjour

Comment déplacer une form FMX à l'aide de la souris ?

Pour tester j'ai mis la propriété Transparency à true, Ce qui est très particulier mais empêche le fonctionnement habituel de la fiche.

Cordialement

André

Code:

---

1 2 3 4 5 6 7 8 9

var p: TPointF;   begin p := Platform.GetMousePos; Form1.Left := trunc(p.X - Button3.Position.X) - 12; Form1.Top := trunc(p.Y - Button3.Position.Y - 20); end;

---

Le comportement n'est pas top, mais ça fonctionne...

Cordialement

André

Form1.StartWindowDrag;