Vcl.Controls.TBaseDragControlObject.Create
Delphi
constructor Create(AControl: TControl); virtual;
C++
__fastcall virtual TBaseDragControlObject(TControl* AControl);
Properties
Type | Visibility | Source | Unit | Parent |
---|---|---|---|---|
constructor | public | Vcl.Controls.pas Vcl.Controls.hpp |
Vcl.Controls | TBaseDragControlObject |
Description
Creates an instance of the TBaseDragControlObject and stores a reference to the control that is being dragged.
Call Create to instantiate a specialized descendant of TBaseDragControlObject from the OnStartDrag event handler of a control that can be dragged. Pass the control that is about to be dragged as the AControl parameter. This control becomes the value of the Control property.