Minimieren des Hauptfensters abfragen (2)

'Minimieren des Hauptfensters abfragen (2)

Beitrag, 16.07.2007 00:51: ;createCode() 'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:

'Minimieren des Hauptfensters abfragen (2)

'Unter Profan 7.0
WINDOWSTYLE 63+512 '512 ganz wichtig
CLS

WHILE 1
WAITINPUT
    IF EQU(%KEY,2)
       End
    ELSEIF equ(%KEY,4)
       @MessageBox("Verkleinern/Vergrössern wurde angeklickt","Hinweis",$41040)
    ENDIF
WEND
END

Dies ist die Offlinevariante vom Thread [Minimieren des Hauptfensters abfragen (2)].