XProfan

Kompilieren Markieren Separieren

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

Danke Andreas,

werde ich gleich mal ausprobieren.

Dirk

ich nutze XProfanX2

dr.dirk

funktioniert SubClassProc auch unter XProfan10?

Ich bekomme es nicht hin

Dirk

ich nutze XProfanX2

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Nein, erst ab XProfan11

so sollte es mit Ver.10 funktionieren.
Kompilieren Markieren Separieren

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

oder so
Kompilieren Markieren Separieren

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

Whilenot Ende&

    WaitInput

    If %Umessage = &WM_MOUSEMOVE

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

    Endif

Endwhile

Vielleicht noch eine GetMessage

-Variante:
Kompilieren Markieren Separieren

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 jetzt zum laufen.

Dirk

ich nutze XProfanX2