Différences

Ci-dessous, les différences entre deux révisions de la page.

--- prog:lazarus:classes:tcontrols:tcontrol_dragdrop [19/08/2024 15:20]
thierry [Cas d'Utilisation Avancés]
+++ prog:lazarus:classes:tcontrols:tcontrol_dragdrop [19/08/2024 15:32] (Version actuelle)
thierry [DragOver]
@@ Ligne 77: / Ligne 77: @@
   * **Source: TObject**
-    Ce paramètre fait référence à l'objet qui est en cours de glisser. Il peut s'agir de n'importe quel composant ou objet que l'utilisateur a commencé à déplacer.
+Ce paramètre fait référence à l'objet qui est en cours de glisser.\\
+Il peut s'agir de n'importe quel composant ou objet que l'utilisateur a commencé à déplacer.
+Source peut aussi faire référence a un ''TDragObject'' si un ''TDragObject'' (ou descendant) a été créé lors de l'appel de ''OnStartDrag''. ([[prog:lazarus:cas:draganddrop#creer_et_initialiser_le_tdragobject_dans_l_evenement_onstartdrag|Voir exemple ici]])
   * **X, Y: integer**
-    Ces paramètres représentent les coordonnées X et Y du curseur de la souris au moment où l'événement **DragOver** est déclenché. Les coordonnées sont données par rapport au composant qui reçoit l'événement.
+Ces paramètres représentent les coordonnées X et Y du curseur de la souris au moment où l'événement **DragOver** est déclenché. Les coordonnées sont données par rapport au composant qui reçoit l'événement.
   * **State: TDragState**
     Ce paramètre indique l'état actuel de l'opération de glisser-déposer. **TDragState** peut avoir plusieurs valeurs, telles que :
@@ Ligne 101: / Ligne 104: @@
   else
     Accept := False;
+    Case State of
+      dsDragEnter : // Le drag viens d'entrer sur ce Control
+      dsDragLeave : // Le drag viens de sortir du Control
+      dsDragMove : // Le drag bouge sur le Control
+    end;
 end;
 </code>