XProfan

Kompilieren Marque Séparation

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Var Ende& = 0
CLS
SubClass %HWnd, 1

Whilenot Ende&

    WaitInput

EndWhile

End

Subclassproc

    If SubClassMessage(%hWnd, $200)~WM_MOUSEMOVE

        Locate 0,0
        Print %Mousex,%Mousey

    Endif

ENDPROC

Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]

dr.dirk

merci Andreas,

werde je juste la fois ausprobieren.

Dirk

ich nutze XProfanX2

dr.dirk

funktioniert SubClassProc aussi sous XProfan10?

je bekomme es pas hin

Dirk

ich nutze XProfanX2

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

non, seulement ab XProfan11

so sollte es avec Ver.10 marcher.
Kompilieren Marque Séparation

DEF &WM_MOUSEMOVE 512
Declare Ende&,Point#
Cls
Usermessages &WM_MOUSEMOVE

Whilenot Ende&

    WaitInput

    If %Umessage = &WM_MOUSEMOVE

        Dim Point#,8
        External("User32.dll","GetCursorPos",Point#)
        External("User32.dll","MapWindowPoints",0,%hwnd,Point#,1)
        Locate 0,0
        Print Long(Point#,0),Long(Point#,4)
        Dispose Point#

    Endif

Endwhile

ou bien so
Kompilieren Marque Séparation

DEF &WM_MOUSEMOVE 512
DEF HiWord(1) @&(1) >> 16 & $FFFF
DEF LoWord(1) @&(1) & $FFFF
Déclarer Ende&
Cls
Usermessages &WM_MOUSEMOVE

Whilenot Ende&

    WaitInput

    Si %Umessage = &WM_MOUSEMOVE

        Localiser 0,0
        Imprimer "                                   "
        Localiser 0,0
        Imprimer LoWord(&ulParam),HiWord(&ulParam)

    Endif

Endwhile

peut-être encore une GetMessage

-variante:
Kompilieren Marque Séparation

cls

while 1

    getMessage

    if %message=512 wm_mouseMove

        locate 1,1
        print %mouseX,%mouseY,"     "

    endif

wend

end

dr.dirk

Vielen Dank euch beiden,

hab es maintenant zum courir.

Dirk

ich nutze XProfanX2