XProfan

Español

¡Hola a Alle
In mi Programa se gesteuert el Programa-Oberfläche minimiert oder maximiert voluntad. Yo habe el Buttons Bild-Oben y Bild-Unten con el Befehlen ShowNormal y ShowMin belegt.
Zusätzlich muss beim Wiederanzeigen (Shownormal) una offener Editor geschlossen voluntad. Ejemplo: SetText edit&, y EnableWindow edit&,0 - Das klappt auch hervorragend con el beiden Bild-Buttons.
Mache Yo el gleiche con el Sistema-Menu-Buttons, kann Yo esta Deaktivierung des Editors no eingeben. Wenn I el Statuszeileneintrag klicke, öffnet Windows wohl otra vez el Ventana, aber el Deaktivierung des Editors kann Yo no angeben. Gibt lo dafür una Message, con el Yo beim Mausklick ebenfalls el zwei Befehle eingeben kann ? - Hoffe, Yo tener mich verständlich ausgedrückt ;)

01.03.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Magst por Mensajes del usuario oder SubClassProc (XProfan11)?

wm_syscommand [...]

01.03.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Kompilieren Marca Separación

CLS
SUBCLASS %HWND,1

WHILE 1

    WAITINPUT

ENDWHILE

SUBCLASSPROC

    SELECT &SWND

        CASEOF %HWND

        SELECT %SMESSAGE

            CASEOF $0112wm_syscommand

            SELECT &SWPARAM

                CASEOF 61472sc_minimize

                MESSAGEBOX(minimiert,,4096)

                CASEOF 61728sc_restore

                MESSAGEBOX(wiederhergestellt,,4096)

            ENDSELECT

        ENDSELECT

    ENDSELECT

    SETWINPROC 1

ENDPROC

Kompilieren Marca Separación

 {$cleq}
cls
subClass hWnd,true

do {

    waitInput
    /* va no porque wm_syscommand como usermessage XProfan en me hängen bleiben lässt
    seleccionar uMessage
    caseof wm_syscommand
    seleccionar ulParam
    caseof sc_minimize
    messageBox(minimiert,,4096)
    EndSelect
    EndSelect
    */

}

subClassProc{

    seleccionar sWnd

        caseof hWnd

        seleccionar sMessage

            caseof wm_sysCommand

            seleccionar swParam

                caseof sc_minimize

                messageBox(minimiert,,4096)

                caseof sc_restore

                messageBox(wiederhergestellt,,4096)

            EndSelect

        EndSelect

    EndSelect

    setWinProc true

}