Class TMyDragObject (unit DropWrap)

Inherits from

TInterfacedObject

IDataObject

IDropSource

Constructors



Functions

function DAdvise(const formatetc: TFormatEtc; advf: Longint; const advSink: IAdviseSink; out dwConnection: Longint): HResult;


function DUnadvise(dwConnection: Longint): HResult;


function EnumDAdvise(out enumAdvise: IEnumStatData): HResult;


function EnumFormatEtc(dwDirection: Longint; out enumFormatEtc: IEnumFormatEtc): HResult;


function GetCanonicalFormatEtc(const formatetc: TFormatEtc; out formatetcOut: TFormatEtc): HResult;


function GetData(const formatetcIn: TFormatEtc; out medium: TStgMedium): HResult;

IDataObject interface

//////////////////////////////////////////////////////////////////////////////


function GetDataHere(const formatetc: TFormatEtc; out medium: TStgMedium): HResult;

receiver shall free memory

function GiveFeedback(dwEffect: Longint): HResult;

commit drag on left mouse button up

function QueryContinueDrag(fEscapePressed: BOOL; grfKeyState: Longint): HResult;

IDropSource interface

function QueryGetData(const formatetc: TFormatEtc): HResult;


function SetData(const formatetc: TFormatEtc; var medium: TStgMedium; fRelease: BOOL): HResult;


Properties

Events

Variables

DragEffect : LongInt;


ParentHandler : TMyOLEDragDropInterface;

internal stuff


Constructors


Functions


function DAdvise(const formatetc: TFormatEtc; advf: Longint; const advSink: IAdviseSink; out dwConnection: Longint): HResult;


function DUnadvise(dwConnection: Longint): HResult;


function EnumDAdvise(out enumAdvise: IEnumStatData): HResult;


function EnumFormatEtc(dwDirection: Longint; out enumFormatEtc: IEnumFormatEtc): HResult;


function GetCanonicalFormatEtc(const formatetc: TFormatEtc; out formatetcOut: TFormatEtc): HResult;


function GetData(const formatetcIn: TFormatEtc; out medium: TStgMedium): HResult;

IDataObject interface

//////////////////////////////////////////////////////////////////////////////


function GetDataHere(const formatetc: TFormatEtc; out medium: TStgMedium): HResult;

receiver shall free memory


function GiveFeedback(dwEffect: Longint): HResult;

commit drag on left mouse button up


function QueryContinueDrag(fEscapePressed: BOOL; grfKeyState: Longint): HResult;

IDropSource interface


function QueryGetData(const formatetc: TFormatEtc): HResult;


function SetData(const formatetc: TFormatEtc; var medium: TStgMedium; fRelease: BOOL): HResult;


Properties


Events


Variables


DragEffect : LongInt;


ParentHandler : TMyOLEDragDropInterface;

internal stuff