TVTDataObject

type TVTDataObject = class(TInterfacedObject,IDataObject)

protected

  function CanonicalIUnknown();

  function EqualFormatEtc();

  function FindFormatEtc();

  function FindInternalStgMedium();

  function HGlobalClone();

  function RenderInternalOLEData();

  function StgMediumIncRef();

  property ForClipboard: Boolean; [r]

  property FormatEtcArray: TFormatEtcArray; [rw]

  property InternalStgMediumArray: TInternalStgMediumArray; [rw]

  property Owner: TBaseVirtualTree; [r]

public

  constructor Create(); virtual;

  destructor Destroy; override;

  function DAdvise(); virtual;

  function DUnadvise(); virtual;

  function EnumDAdvise(); virtual;

  function EnumFormatEtc(); virtual;

  function GetCanonicalFormatEtc(); virtual;

  function GetData(); virtual;

  function GetDataHere(); virtual;

  function QueryGetData(); virtual;

  function SetData(); virtual;

end;

TVTDataObject

TObject,IDataObject