Vcl.Controls.TControl.BeginDrag
Delphi
procedure BeginDrag(Immediate: Boolean; Threshold: Integer = -1);
C++
void __fastcall BeginDrag(bool Immediate, int Threshold = 0xffffffff);
Propriétés
| Type | Visibilité | Source | Unité | Parent |
|---|---|---|---|---|
procedure function |
public | Vcl.Controls.pas Vcl.Controls.hpp |
Vcl.Controls | TControl |
Description
Commence le glissement d'un contrôle.
Appelez la méthode BeginDrag pour commencer une opération de déplacement. BeginDrag est appelée dans le code d'une application uniquement quand la valeur de la propriété DragMode du contrôle est égale à dmManual. Si DragMode est à dmAutomatic, BeginDrag est appelée automatiquement.
Si le paramètre Immediate a la valeur true, le pointeur de la souris utilise la valeur spécifiée par la propriété DragCursor et le glissement commence immédiatement. Si Immediate a la valeur false, le pointeur de la souris ne change pas et le glissement ne commence que lorsque l'utilisateur déplace la souris sur une courte distance (du nombre de pixels spécifiés par Threshold). Si l'appelant transmet une valeur Threshold inférieure à 0 (telle que la valeur par défaut de ce paramètre), BeginDrag utilise la propriété DragThreshold de la variable globale Mouse.
L'initialisation de Immediate à false permet au contrôle d'accepter les clics de la souris sans commencer d'opération glisser-déplacer ou glisser-ancrer.