Vcl.Controls.TBaseDragControlObject.Create
Delphi
constructor Create(AControl: TControl); virtual;
C++
__fastcall virtual TBaseDragControlObject(TControl* AControl);
Propriétés
| Type | Visibilité | Source | Unité | Parent |
|---|---|---|---|---|
| constructor | public | Vcl.Controls.pas Vcl.Controls.hpp |
Vcl.Controls | TBaseDragControlObject |
Description
TBaseDragControlObject crée une instance de Create et stocke sous forme de référence le contrôle en cours de déplacement.
Appelez Create pour instancier un descendant spécialisé de TBaseDragControlObject depuis le gestionnaire d'événement OnStartDrag d'un contrôle pouvant faire l'objet d'un glissement. Transmettez le contrôle sur le point d'être glissé dans le paramètre AControl. Ce contrôle devient la valeur de la propriété Control.