XProfan

Italia

Hallo an Alle
In meinem Programm soll gesteuert die Programm-Oberfläche minimiert oder maximiert werden. Ich habe die Buttons Bild-Oben und Bild-Unten mit den Befehlen ShowNormal und ShowMin belegt.
Zusätzlich muss beim Wiederanzeigen (Shownormal) ein offener Editor geschlossen werden. Beispiel: SetText edit&, und EnableWindow edit&,0 - Das klappt auch hervorragend mit den beiden Bild-Buttons.
Mache ich das gleiche mit den System-Menu-Buttons, kann ich diese Deaktivierung des Editors nicht eingeben. Wenn ich auf den Statuszeileneintrag klicke, öffnet Windows wohl wieder das Fenster, aber die Deaktivierung des Editors kann ich nicht angeben. Gibt es dafür eine Message, mit der ich beim Mausklick ebenfalls die zwei Befehle eingeben kann ? - Hoffe, ich hab mich verständlich ausgedrückt ;)

01.03.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Magst per UserMessages oder SubClassProc (XProfan11)?

wm_syscommand [...]

01.03.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Kompilieren Markieren Separieren

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 Markieren Separieren

 {$cleq}
cls
subClass hWnd,true

do {

    waitInput
    /* geht nicht weil wm_syscommand als usermessage xprofan bei mir hängen bleiben lässt
    select uMessage
    caseof wm_syscommand
    select ulParam
    caseof sc_minimize
    messageBox(minimiert,,4096)
    endSelect
    endSelect
    */

}

subClassProc{

    select sWnd

        caseof hWnd

        select sMessage

            caseof wm_sysCommand

            select swParam

                caseof sc_minimize

                messageBox(minimiert,,4096)

                caseof sc_restore

                messageBox(wiederhergestellt,,4096)

            endSelect

        endSelect

    endSelect

    setWinProc true

}