XProfan

English

Hello on any
In my Program should gesteuert The Program-surface minimizes or maximiert go. I have The Buttons Image-supra and Image-under with the command ShowNormal and ShowMin occupied.
Additional must at Wiederanzeigen (Shownormal) one offener editor closed go. example: SetText edit&, and EnableWindow edit&,0 - the works too inspired with the both Image-Buttons.
make I the same with the system-Menu-Buttons, can I these Deaktivierung the Editors not prompt. If I on whom Statuszeileneintrag click, opens windows well again the window, but the Deaktivierung the Editors can I not indicate. gives it for a Message, with the I at Click ditto The two command prompt can ? - hope, I Have me verständlich framed ;)

03/01/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

like by User Messages or SubClassProc (XProfan11)?

wm_syscommand [...]

03/01/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Compile Mark Separation

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

Compile Mark Separation

 {$cleq}
cls
subClass hWnd,true

do {

    waitInput
    /* is not because wm_syscommand as usermessage XProfan by me hang stay can
    select uMessage
    caseof wm_syscommand
    select ulParam
    caseof sc_minimize
    messageBox(minimizes,,4096)
    endSelect
    endSelect
    */

}

subClassProc{

    select sWnd

        caseof hWnd

        select sMessage

            caseof wm_sysCommand

            select swParam

                caseof sc_minimize

                messageBox(minimizes,,4096)

                caseof sc_restore

                messageBox(restored,,4096)

            endSelect

        endSelect

    endSelect

    setWinProc true

}