XProfan

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Compile Mark Separation

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

thanks Andreas,

I will same time try.

Dirk

ich nutze XProfanX2

dr.dirk

functions SubClassProc too under XProfan10?

I get not there

Dirk

ich nutze XProfanX2

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

No, first ex XProfan11

so ought to it with Ver.10 functions.
Compile Mark Separation

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

or so
Compile Mark Separation

DEF &WM_MOUSEMOVE 512
DEF HiWord(1) @&(1) >> 16 & $FFFF
DEF LoWord(1) @&(1) & $FFFF
Declare Ende&
Cls
User Messages &WM_MOUSEMOVE

Whilenot Ende&

    WaitInput

    If %Umessage = &WM_MOUSEMOVE

        Locate 0,0
        Print "                                   "
        Locate 0,0
        Print LoWord(&ulParam),HiWord(&ulParam)

    Endif

Endwhile

Perhaps another GetMessage

-Variante:
Compile Mark Separation

cls

while 1

    getMessage

    if %message=512 wm_mouseMove

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

    endif

wend

end

dr.dirk

Vielen Thanks you both,

Have it now to that walk.

Dirk

ich nutze XProfanX2