glisser-déplacer at runtime

salut à tous,

petit contribution tutorielle pour assurer le glisser-déplacer à l'exécution d'un composant A (ex groupbox) sur un composant B (ex form):

- créer un gestionnaire évènement "OnDragOver" à B, et y mettre

Code:

---

Accept=true;

---

(bien sûr peut être conditionné)

- mettre la propriété de A

Code:

---

DragMode=dmAutomatic;

---

- créer un gestionnaire évènement "OnEndDrag" à A, et y mettre les actions à faire à la fin du Glisser-déplacer, du genre:

Code:

---

GroupBox->Left=X; GroupBox->Top=Y;

---

(X et Y paramètres du gestionnaire donnent la position de la souris lorsque la souris est sensée être relâchée)...

g un peu trimé pour comprendre le principe, et je suis sûr que certains collègues apprécieront de gagner du temps...