TMyDragObject -
TMyDropObject -
TMyEnumFormatEtc -
TMyOLEDragDropInterface -
TMyAllowedDropEffects
TMyDragEvent
TMyDropEffect
TMyDropEvent
ClipBoardFormatIDString
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
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 // //////////////////////////////////////////////////////////////////////////////