(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