XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Cursorposition im eigenen Fenster setzen
Lauffähig ab Profan-Version 5.0
PRFellow-Vorlage
Autor: Thomas Hölzer
Cursorposition im eigenen Fenster  setzen
Def SetCursorPos(2) !USER32,SetCursorPos
Def ClientToScreen(2) !USER32,ClientToScreen
Declare pt#

Proc SetCursor

    Parameters x&,y&,hwnd&
    Dim pt#,8
    Long pt#,0=x&
    Long pt#,4=y&
    Case Equ(hwnd&,0): Let hwnd&=GetActiveWindow()
    ClientToScreen(hwnd&,pt#)
    SetCursorPos(Long(pt#,0),Long(pt#,4))
    Dispose pt#

EndProc

Beispiel
Window 300,0-640,480
Print Bitte klicken - der Cursor verschwindet nach außerhalb
WaitInput
SetCursorPos(200,200)
Print Nochmal klicken - jetzt ist er richtig aufs Fenster bezogen
WaitInput
SetCursor %hwnd,200,200
WaitInput

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Cursorposition im eigenen Fenster setzen
PRFellow-Vorlage
Autor: Thomas Hölzer
Cursorposition im eigenen Fenster  setzen
Def SetCursorPos(2) !USER32,SetCursorPos
Def ClientToScreen(2) !USER32,ClientToScreen
Declare pt#

Proc SetCursor

    Parameters x&,y&,hwnd&
    Dim pt#,8
    Long pt#,0=x&
    Long pt#,4=y&
    Case Equ(hwnd&,0): Let hwnd&=GetActiveWindow()
    ClientToScreen(hwnd&,pt#)
    SetCursorPos(Long(pt#,0),Long(pt#,4))
    Dispose pt#

EndProc

Beispiel
Window 300,0-640,480
Print Bitte klicken - der Cursor verschwindet nach außerhalb
WaitInput
SetCursorPos(200,200)
Print Nochmal klicken - jetzt ist er richtig aufs Fenster bezogen
WaitInput
SetCursor %hwnd,200,200
WaitInput