XProfan

Kompilieren Marca Separación

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

Gracias Andreas,

voluntad Yo igual veces ausprobieren.

Dirk

ich nutze XProfanX2

dr.dirk

funktioniert SubClassProc auch bajo XProfan10?

Yo bekomme no hin

Dirk

ich nutze XProfanX2

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Nein, sólo de XProfan11

así debería lo con Ver.10 trabajo.
Kompilieren Marca Separación

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

más o menos
Kompilieren Marca Separación

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

Sinestar encargado Ende&

    WaitInput

    If %Umessage = &WM_MOUSEMOVE

        Localizar 0,0
        Imprimir "                                   "
        Localizar 0,0
        Imprimir LoWord(&ulParam),HiWord(&ulParam)

    Endif

Endwhile

Tal vez ni GetMessage

-Variante:
Kompilieren Marca Separación

cls

while 1

    getMessage

    if %message=512 wm_mouseMove

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

    endif

wend

end

dr.dirk

Vielen Dank euch beiden,

tener lo ahora para laufen.

Dirk

ich nutze XProfanX2