XProfan

Español

Nico
Madysa

Hallöle miteinander! Yo stehe irgendwie en el Schlauch -- como kann Yo una HTML-Win así sperren, dass uno lo zwar bastante normal benutzen kann, el derecho aber verboten es? Mein Intento encima Subclassing es gescheitert: Kompilieren Marca Separación 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 Zitat Absatzweise Cita Zeilenweise Cita

Funzt [...]

? [...]

29.09.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Nico
Madysa

Nach unos pocos obligatorischen Drops-Fehlern funktioniert lo wunderbar.

Kompilieren Marca Separación

 $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