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
(bien sûr peut être conditionné)
Code : Sélectionner tout - Visualiser dans une fenêtre à part Accept=true;
- mettre la propriété de A
- créer un gestionnaire évènement "OnEndDrag" à A, et y mettre les actions à faire à la fin du Glisser-déplacer, du genre:
Code : Sélectionner tout - Visualiser dans une fenêtre à part DragMode=dmAutomatic;
(X et Y paramètres du gestionnaire donnent la position de la souris lorsque la souris est sensée être relâchée)...
Code : Sélectionner tout - Visualiser dans une fenêtre à part GroupBox->Left=X; GroupBox->Top=Y;
g un peu trimé pour comprendre le principe, et je suis sûr que certains collègues apprécieront de gagner du temps...
Partager