Class TMyDragObject (unit DropWrap) |
Inherits from
TInterfacedObject
IDataObject
IDropSource
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;
DragEffect : LongInt;
ParentHandler : TMyOLEDragDropInterface;
internal stuff
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;
DragEffect : LongInt;
ParentHandler : TMyOLEDragDropInterface;
internal stuff