XProfan

- Page 1 -

Mit der EasyVENT.dll und Include kannste auch Kinderleicht einen Mausdoppelclick feststellen
[...]

01.06.2006 ▲

Frank
Abbing

Das geht ohne Dll viel leichter...
Um Doppelklicks zu empfangen muss lediglich der CS_DBLCLKS Class-Style gesetzt werden. So wie es in der API-Aiuto ja auch steht.
Kompilieren Markieren Separieren

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
End

01.06.2006 ▲

Sven
Bader

Damit geht es, danke

Meine bisherige Variante:
Kompilieren Markieren Separieren

Def Key(1) !User32,GetAsyncKeyState
Def windowfrompoint(2) !USER32,WindowFromPoint
Def GetCursorPos(1) !USER32,GetCursorPos
cls
usermessages 16
Declare dbl&, dbl%,mousepos#,oldx%,oldy%
dim mousepos#,8

PROC Doppelklick

    Parameters handle&

    if (abs(key(1)>1) ) & (dbl% = 0) & (windowfrompoint(long(mousepos#,0),long(mousepos#,4)) = handle&)

        dbl& = &gettickcount+400 Doppelklickzeit
        dbl% = 1
        oldx% = long(mousepos#,0)
        oldy% = long(mousepos#,4)

    elseif (abs(key(1)<2)) & (dbl% = 1)  & (windowfrompoint(long(mousepos#,0),long(mousepos#,4)) = handle&)

        dbl% = 2
        case (&gettickcount > dbl&) : dbl% = 0

    elseif (abs(key(1)>1)) & (dbl% = 2)  & (&gettickcount < dbl&) & (windowfrompoint(long(mousepos#,0),long(mousepos#,4)) = handle&)

        if ((abs(oldx% - long(mousepos#,0))<5) & (abs(oldy% - long(mousepos#,4))<5)) Maus maximal 5 Pixel verschoben

            dbl% = 3

        else

            dbl% = 0

        endif

    elseif ((abs(key(1)>1)) & (dbl% = 2)) | (dbl% = 3)

        dbl% = 0

    endif

    return if(dbl% = 3,1,0)

EndProc

whilenot (%umessage = 16)

    waitinput
    sleep 50
    getcursorpos(mousepos#)
    case Doppelklick(%hwnd) : print Doppelklick

endwhile

dispose mousepos#

Frank
Abbing

Da würde ich die API-Variante unbedingt vorziehen, weil der User die Doppelklick-Zeit ja einstellen kann.

- Page 2 -

Sven
Bader

Notfalls kann ich das ja auch noch aus der Registry auslesen

Denke aber, dass ein fixer Wert nicht weiter tragisch ist.
Ich habe es übrigens doch nicht geschafft, die API Variante in einer Listbox zum laufen zu bekommen... habe die %hwnd durch das Listbox-Handle getauscht - reicht das nicht?

Sven Bader

Ich habe es übrigens doch nicht geschafft, die API Variante in einer Listbox zum laufen zu bekommen... habe die %hwnd durch das Listbox-Handle getauscht - reicht das nicht?

Falls Du doch das mit der EasyVENt.dll testen möchtest, damit geht es problemlos
Kompilieren Markieren Separieren

 $I EasyVENT.inc
Def PostQuitMessage(1) !USER32, PostQuitMessage
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE LISTBOX1&
WINDOWSTYLE 26
WINDOWTITLE ListBox
WINDOW 336,416-303,158
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
LISTBOX1& = CREATE(LISTBOX,%HWND,LISTBOX,10,10,275,110)
AddString(LISTBOX1&, Profan Rulez)
AddString(LISTBOX1&, I love it)
SetEventHandler(LISTBOX1&, ~OnDblClick, ProcAddr(ButtonDBLClick, 1))
SetEventHandler(%HWND, ~OnClose, ProcAddr(WinClose, 1))
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

WEND

Dispose PRF_Sender#
End

Proc ButtonDBLClick

    parameters prf_events&
    PRF_Sender# = prf_events&

    With PRF_Sender#

        If .button& = ~EVENT_LEFTBUTTON

            MessageBox , Linker Doppelklick, 0

        ElseIf .button& = ~EVENT_MIDDLEBUTTON

            MessageBox , Mittlerer Doppelklick, 0

        ElseIf .button& = ~EVENT_RIGHTBUTTON

            MessageBox , Rechter Doppelklick, 0

        EndIf

    EndWith

    Return ~ProfanEvents

EndProc

Proc WinClose

    Dispose PRF_Sender#
    PostQuitMessage(0)

./../references-fonction/xprofan/endproc/'>EndProc

Pedro
Santos

Hallo Tomas

EasyVENt finde ich gut doch bei mir funktioniert der oben stehenden code nicht richtig, ich habe anschliessend kein kontrolle mehr circa den Rechner, ich brauche nichts anzuclicken es reagiert bereits wenn die Maus bewegt wird und kannst ja denken was per ein Chaos wird, es hilft nur den Rechner auszuschalten und wieder an.

Ich habe XP Home SP2 und die aktuelle Xprofan 10 version, mit Xprofan9 habe es noch nicht getestet

Gruss

Pedro

Windows XP Home
Xprofan 10

03.06.2006 ▲

Hallo Pedro,

kann den Fehler leider nicht nachvollziehen, XProfan 10, XP Pro Sp2

Vielleicht haste einen anderen Fensterstil gewählt, ansonsten mal FastMode 1 setzen, kann sein, das bestimmte Ereignisse, welche von der DLL gebraucht werden, sonst nicht durchkommen.

04.06.2006 ▲

Sven
Bader

Ich denke, ich bleib bei meiner handprogrammierten Methode. Das mit der Doppelklickzeit seh ich nicht so eng... im Gegensatz zu getfocus per Buttonklicks ist das ein Pfusch, der niemandem auffallen wird. Ist nur irgendwie komisch, dass eine solch banale Sache zu Schwierigkeiten führt - man möchte es eben doch irgendwie korrekt und elegant lösen.

04.06.2006 ▲

korrekt und elegant lösen

Es funktioniert ganz hervorragend im Fastmode mit eigener wProc, wie ich schon im ersten Posting schrieb.

Du hast schon recht Sven, aus diesem und ähnlichen Stabilire flüchte ich mich auch oft in den Fastmode - in XProfan müsste hierfür eine Lösung her.

Man potuto einen Bug melden mit Doppelklickabfrage ohne Fastmode unbefriedigend.

04.06.2006 ▲