Recherche:

Effectivement. :king:
Je vais tester cette solution pour comparer laquelle colle le mieux à ce que je cherche ...


J'en ai supprimé 2 ~ 3. Faut que je fasse du ménage ...

C'était tout bêtement ça qui me manquait. :arf:
Maintenant, mon projet test fonctionne bien :
procedure TForm1.LayoutDragOver(Sender: TObject; const [Ref] Data: TDragObject; const [Ref] Point:...

Je ne comprend pas bien.
J'ai essayé, et cette fois il ne se passe plus rien du tout : le glisser ne démarre même plus. Ca me semble logique, puisque sans HitTest, je ne peux plus agir sur les...

Comment faire du drag-drop en FMX ?

Voici mon exemple :
J'ai des TRectangle alignés dans un TLayout.
Je souhaiterais les intervertir avec un glisser-déposer.

Mes rectangles à déplacer ont...