Hallo,
hier eine Prozedur:
proc SetCursorPos
parameters x%,y%
declare a#
dim a#,8
def ClientToScreen(2) !"USER32","ClientToScreen"
def SetCursorPos(2) !"USER32","SetCursorPos"
long a#,0=x%
long a#,4=y%
ClientToScreen(%hwnd,a#)
SetCursorPos(long(a#,0),long(a#,4))
dispose a#
endproc
Die kannst du dann mit SetCursorPos X,Y aufrufen.
Sebastian
|