Binding to _screen's oledragover event

[Nigel Gomm]

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

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

 

[robsuttonjr]

Here is an article from the web on the subject:

http://72.14.207.104/search?q=cache...pro+oledragover+won't+fire&hl=en&ct=clnk&cd=2

Hope it helps

Regards,

Rob