| Class TMyOLEDragDropInterface (unit DropWrap) |
TComponent
| Constructors |
constructor Create(AOwner : TComponent);| Functions |
destructor Destroy;
procedure StartDrag(StringToDrag : string);
procedure DoDragFinished;
procedure DoDropFinished;
function GetReqBufferSize: LongInt;
procedure SetDragObjectData(MemBuffer : Pointer);
procedure SetDropObjectData(MemBuffer : Pointer);
procedure SetReqBufferSize(ASize : LongInt);
procedure SetDragDropControl(NewValue : TWinControl);| Properties |
property AllowedDragEffects : TMyAllowedDropEffects
property AllowedDropEffects : TMyAllowedDropEffects
property DragDropControl : TWinControl
property IsInDragging : Boolean| Events |
event OnDragFinished : TMyDragEvent
event OnDrop : TMyDropEvent| Variables |
FAllowedDragEffects : TMyAllowedDropEffects;
FAllowedDropEffects : TMyAllowedDropEffects;
FDragDropControl : TWinControl;
FDropEffect : TMyDropEffect;
FIsInDragging : Boolean;
FOnDragFinished : TMyDragEvent;
FOnDrop : TMyDropEvent;
FPointDroped : TPoint;
FStringDroped : string;
FStringToDrag : string;
MyDragObject : TMyDragObject;
MyDropTarget : TMyDropObject;| Constructors |
constructor Create(AOwner : TComponent);//////////////////////////////////////////////////////////////////////////////
| Functions |
destructor Destroy;
procedure StartDrag(StringToDrag : string);now register new window
procedure DoDragFinished;
procedure DoDropFinished;
function GetReqBufferSize: LongInt;
procedure SetDragObjectData(MemBuffer : Pointer);does nothing here, used for extensions
procedure SetDropObjectData(MemBuffer : Pointer);copy data only if drop succesful
procedure SetReqBufferSize(ASize : LongInt);
procedure SetDragDropControl(NewValue : TWinControl);| Properties |
property AllowedDragEffects : TMyAllowedDropEffects
property AllowedDropEffects : TMyAllowedDropEffects
property DragDropControl : TWinControl
property IsInDragging : Boolean| Events |
event OnDragFinished : TMyDragEvent
event OnDrop : TMyDropEvent| Variables |
FAllowedDragEffects : TMyAllowedDropEffects;
FAllowedDropEffects : TMyAllowedDropEffects;
FDragDropControl : TWinControl;
FDropEffect : TMyDropEffect;
FIsInDragging : Boolean;
FOnDragFinished : TMyDragEvent;
FOnDrop : TMyDropEvent;
FPointDroped : TPoint;
FStringDroped : string;
FStringToDrag : string;
MyDragObject : TMyDragObject;
MyDropTarget : TMyDropObject;