Hi Nigel

Look this: Dragging files from Explorer window and dropping them on FoxPro control (requires VFP9) (or _screen)

MartinJ

>i'm trying to bind to the _screen's oledragover event but it won't fire
>(i've put debug code into the oledragover method and it isn't being entered
>at all).
>
>What am i missing?
>
>
>thanks (with apologies to those who've already seen this elsewhere)
>
>Nigel
>
>
>
>I have...
>
>

> goOleHandler= getScreenOleHandler()
> _SCREEN.OLEDROPMODE = 1
> _SCREEN.OLEDROPEFFECTS=1
> =BINDEVENT(_SCREEN,"OLEDragDrop",goOleHandler,"oledragdrop")
> =BINDEVENT(_SCREEN,"OLEDragOver",goOleHandler,"oledragover")
>
>
>function getScreenOleHandler()
>RETURN CREATEOBJECT("ScreenOleDrop")
>
>
>DEFINE CLASS ScreenOleDrop AS custom
> PROCEDURE OLEDRAGDROP
>  LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord
>  TRY
>   IF oDataObject.GETFORMAT(15) && list of files from explorer
>    LOCAL laFiles(1)
>    oDataObject.GETDATA(15,@laFiles)
>    FOR EACH lcFile IN laFiles
>     DO FORM IMPORT.scx WITH lcFile
>    NEXT
>   ENDIF
>  CATCH TO oe
>   =postmortem(oe)
>  ENDTRY
> PROCEDURE OLEDRAGOVER
>  LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord, nState
>  TRY
>   IF oDataObject.GETFORMAT(15)
>    THIS.OLEDROPHASDATA = 1
>    THIS.OLEDROPEFFECTS = 4
>    nEffect = 4
>   ENDIF
>  CATCH TO oe
>   =postmortem(oe)
>  ENDTRY
>ENDDEFINE
>