Not all of the _SCREEN methods/events can be used with this technique. Looks like you've found one that doesn't work.


>Hi,
>
>is there a possibility to use the OLEDragDrop procedure of the screen? I tried the following:
>
>_screen.OLEDragMode=1
>_screen.NewObject("oSh","ScreenHook","screenhook.prg")
>
>DEFINE CLASS Screenhook as Custom
>
> oScr = _screen
> oScr.oledragmode=1
>
> FUNCTION oScr.OLEDragDrop(oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord)
> MESSAGEBOX("Olè. Viva Èspana!")
> ENDFUNC
>
> FUNCTION oScr.Click()
> MESSAGEBOX("Clicked.")
> ENDFUNC
>
>ENDDEFINE
>
>The click event works while the OLEDragDrop doesnt do anything. No error, no result. Just sleeping.
>
>...gerhard...