Class TMyDropObject (unit DropWrap) |
Inherits from
TInterfacedObject
IDropTarget
function DragEnter(const dataObj: IDataObject; grfKeyState: Longint;
pt: TPoint; var dwEffect: Longint): HResult;
IDropTarget interface//////////////////////////////////////////////////////////////////////////////
function DragLeave: HResult;
proceed with standard keys
function DragOver(grfKeyState: Longint; pt: TPoint;
var dwEffect: Longint): HResult;
proceed with standard keys
function Drop(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint;
var dwEffect: Longint): HResult;
ParentHandler : TMyOLEDragDropInterface;
internal stuff
function DragEnter(const dataObj: IDataObject; grfKeyState: Longint;
pt: TPoint; var dwEffect: Longint): HResult;
IDropTarget interface
//////////////////////////////////////////////////////////////////////////////
function DragLeave: HResult;
proceed with standard keys
function DragOver(grfKeyState: Longint; pt: TPoint;
var dwEffect: Longint): HResult;
proceed with standard keys
function Drop(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint;
var dwEffect: Longint): HResult;
ParentHandler : TMyOLEDragDropInterface;
internal stuff