Class TMyDropObject (unit DropWrap)

Inherits from

TInterfacedObject

IDropTarget

Constructors



Functions

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;


Properties

Events

Variables

ParentHandler : TMyOLEDragDropInterface;

internal stuff


Constructors


Functions


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;


Properties


Events


Variables


ParentHandler : TMyOLEDragDropInterface;

internal stuff