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...