XProfan

Declare X&
Def Getclasslong(2) !"USER32","GetClassLongA"
Def Setclasslong(3) !"USER32","SetClassLongA"
Cls
Usermessages $203,$206,$209
X&=Getclasslong(%Hwnd,-26)
X&=Or(X&,8)
Setclasslong(%Hwnd,-26,X&) CS_DBLCLKS Class-Style setzen.

While 1

    Waitinput
    Case %Key=2:Break

    If %Umessage=$203

        Print "Linker Doppelklick."

    Elseif %Umessage=$206

        Print "Rechter Doppelklick."

    Elseif %Umessage=$209

        Print "Mittlerer Doppelklick."

    Endif

Endwhile

Usermessages 0
Fin