Discussion :

[alheuredudejeuner]

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é

[alheuredudejeuner]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[soseb]

Form1.StartWindowDrag;