XProfan

Français

Nico
Madysa

Hallöle miteinander! je stehe irgendwie sur dem Schlauch -- comment peux je un HTML-Win so sperren, dass on es zwar entier normal benutzen peux, qui Droit mais interdit ist? mon Versuch sur Subclassing ist gescheitert: Kompilieren Marque Séparation subclassproc if SubclassMessage(HTML&,~WM_RBUTTONDOWN) Set("WinProc",0) elseif SubclassMessage(HTML&,~WM_RBUTTONUP) Set("WinProc",0) endif
Nico Madysa	29.09.2009 ▲ Vollständiges citation Absatzweise Citation Zeilenweise Citation

Funzt [...]

? [...]

29.09.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Nico
Madysa

Pour un paire obligatorischen Drops-Fehlern funktioniert cela Ding wunderbar.

Kompilieren Marque Séparation

 $H Messages.ph
var hUser& = ImportDLL("USER32","u_")

{subClassProc

    Subclassproc

        if SubclassMessage(subhandle&,~WM_CONTEXTMENU)

            Set("WinProc",0)

        else

            Set("WinProc",1)

        endif

    endproc

    proc GetServerWindow

        parameters cWnd&,sAddr&
        declare b#
        Dim b#,4 : b# = sAddr&

        if Long(b#,0)

            Dispose b#
            return 0

        endif

        Select ClassOf(cWnd&)

            Caseof "Shell Embedding"

            u_EnumChildWindows(cWnd&,ProcAddr("GetServerWindow",2),sAddr&)

            Caseof "Shell DocObject View"

            u_EnumChildWindows(cWnd&,ProcAddr("GetServerWindow",2),sAddr&)

            Caseof "Internet Explorer_Server"

            Long b#,0 = cWnd&
            Dispose b#
            return 0

        EndSelect

        Dispose b#
        return 1

    endproc

    proc SubclassHTMLWin

        parameters pHTML&,stat%
        var subWin& = 0
        u_EnumChildWindows(pHTML&,ProcAddr("GetServerWindow",2),Addr(subWin&))
        SubClass subWin&,stat%
        return subWin&

    endproc

    cls
    var h& = Create("HTMLWin",%hWnd,"about:blank",1,0,0,200,200)

    while HTMLWin("GetBusy",h&) : Sleep 1 : wend

        var subhandle& = SubclassHTMLWin(h&,1)

        whilenot IsKey(27)

            waitinput

        wend

        FreeDLL hUs