Class TMyOLEDragDropInterface (unit DropWrap)

Inherits from

TComponent

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;



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;