XProfan

Français

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Maustasten et clavier abfragen (per Subclassing)
de Frank Abbing
Probiert la fois qui Maustasten aus et drückt un paire Tasten.
cet Code basé sur Andreas Miethes Vorarbeit. sur seiner XProfan-page findet son
tiefer gehende Subclassing-Sources.
 $H Windows.ph
 $H Messages.ph
Def Hiword(1) And(&(1)>>16,$Ffff)
Def Loword(1) And(&(1),$Ffff)
Déclarer Ende&,Button&,Oldwindowproc&,Text$

Proc Windowproc

    Paramètres Wnd&, Msg&, Wparam&, Lparam&

    Si Msg& = ~Wm_close

        ~Postquitmessage(0)Programme-Ende

    Endif

    Text$=Controlhandle: +Str$(Wnd&)+
    ~Textout(%Hdc,0,20,Addr(Text$),Len(Text$))
    Text$=Message: +Str$(Msg&)+
    ~Textout(%Hdc,0,40,Addr(Text$),Len(Text$))
    Text$=WParam: +Str$(Wparam&)+
    ~Textout(%Hdc,0,60,Addr(Text$),Len(Text$))
    Text$=LParam: +Str$(Lparam&)+
    ~Textout(%Hdc,0,80,Addr(Text$),Len(Text$))

    Si Msg& = ~Wm_lbuttondown

        Text$=Linker Knopf wird justement gedrückt.
        ~Textout(%Hdc,0,120,Addr(Text$),Len(Text$))

    Elseif Msg& = ~Wm_lbuttonup

        Text$=Linker Knopf wurde losgelassen.
        ~Textout(%Hdc,0,120,Addr(Text$),Len(Text$))

    Elseif Msg& = ~Wm_rbuttondown

        Text$=Rechter Knopf wird justement gedrückt.
        ~Textout(%Hdc,0,140,Addr(Text$),Len(Text$))

    Elseif Msg& = ~Wm_rbuttonup

        Text$=Rechter Knopf wurde losgelassen.
        ~Textout(%Hdc,0,140,Addr(Text$),Len(Text$))

    Elseif Msg& = ~Wm_keydown

        Text$=bouton avec Tastencode +Str$(Wparam&)+ wird justement gedrückt.
        ~Textout(%Hdc,0,160,Addr(Text$),Len(Text$))

    Elseif Msg& = ~Wm_keyup

        Text$=
        ~Textout(%Hdc,0,160,Addr(Text$),Len(Text$))

    Endif

    alle Messages qui pas behandelt wurden à qui Original-Procédure weiterleiten
    Retour ~Callwindowproc(Oldwindowproc&,Wnd&, Msg&, Wparam&, Lparam&)

ENDPROC

Set(FastMode,1)
Cls
Fenêtre-Procédure austauschen et qui Original-Procédure dans
OldWindowproc sichern
Oldwindowproc& = ~Setwindowlong(%Hwnd,~Gwl_wndproc, Procaddr(Windowproc,4))

Whilenot Ende&

    Waitinput

Endwhile