Is this a bug in BindEvents?
(been away skiing with my family)
A customer reported this as a bug in BindEvent. Run the code below. Try and drag and drop some text from Word or a file from Windows Explorer onto the form. Nothing happens Try without the BindEvent line, and the user code gets executed.
Can anyone explain what is going on here?
PUBLIC ox
ox=CREATEOBJECT("xMyForm")
DEFINE CLASS xMyForm AS Form
OLEDROPMODE = 1
OLEDROPEFFECTS=1
allowoutput=.f.
left=200
PROCEDURE load
this.Show
?BINDEVENT(THIS,"OLEDragOver",THIS,"MyOLEDragOver",1)
PROCEDURE OLEDragOver(oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord, nState)
?PROGRAM()
PROCEDURE MyOLEDragOver(oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord, nState)
?PROGRAM()
ENDDEFINE