Unit DropWrap

Classes

TMyDragObject -
TMyDropObject -
TMyEnumFormatEtc -
TMyOLEDragDropInterface -

Functions

Types

TMyAllowedDropEffects
TMyDragEvent
TMyDropEffect
TMyDropEvent

Constants

ClipBoardFormatIDString

Variables


Functions


Types


TMyAllowedDropEffects = set of deCopy..deScroll

TMyDragEvent = procedure(DropEffect : TMyDropEffect) of object

TMyDropEffect = (deNone, deCopy, deMove, deLink, deScroll);

TMyDropEvent = procedure(DropString : string; Point : TPoint) of object

Constants

ClipBoardFormatIDString = 'MyDragDrop Format'

////////////////////////////////////////////////////////////////////////////// // TMyOLEDragDropInterface - a simple wrapper component to implement OLE Drag and Drop. // Copyright 1998 by Andreas Hahn andreas.hahn@sap-ag.de // Free to use, edit and redistribute as long as my name appears somewhere in the source code. No warranty is given by the author, expressed or limited. (this was for our american friends ;-) // Comments, bug-reports etc are welcome. I would be glad if you drop me a line when modifying the source to keep track of the code history. // ////////////////////////////////////////////////////////////////////////////// // History : // 01-31-1998 created, initial release 0.9 // //////////////////////////////////////////////////////////////////////////////

Variables