Vcl.Controls.TBaseDragControlObject.Assign

Aller au parent : TBaseDragControlObject

Delphi

procedure Assign(Source: TDragObject); override;

C++

virtual void __fastcall Assign(TDragObject* Source);

Propriétés

Type	Visibilité	Source	Unité	Parent
procedure function	public	Vcl.Controls.pas Vcl.Controls.hpp	Vcl.Controls	TBaseDragControlObject

Description

Copie les propriétés d'un autre objet contrôle de glissement.

Appelez Assign pour copier les propriétés d'un autre objet de glissement. Assign modifie les propriétés DragTarget, DragHandle, DragPos, DragTargetPos, MouseDeltaX et MouseDeltaY pour correspondre à l'objet de glissement fourni par le paramètre Source. Si Source est un descendant de TBaseDragControlObject (ce qui est normalement le cas), Assign copie aussi la propriété Control.