Hauptfenster erstellen und Button abfragen

'Hauptfenster erstellen und Button abfragen

Gast, 15.07.2007 23:56: ;createCode()'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:'Hauptfenster erstellen und Button abfragen'Lauffähig ab Profan-Version 6.6'Dieses Beispiel demonstriert, wie ein Beenden-Button erzeugt und abgefragt werden kann.'Es bedeuten:'------------' Titel$ der Text der Titelzeile des Hauptfensters 'x% die vertikale Ausdehnung des Hauptfensters 'y% die horizontale Ausdehnung des Hauptfensters 'exit% Handle des Beenden-Buttons 'b% Breite des Beenden-Buttons 'h% Höhe des Beenden-Buttons declare Titel$,x%,y%,e%,exit%declare b%,h%PROC INIT x% = 320 y% = 240 b% = 100 h% = 25 Titel$="Ich bin ein kleines Profan²-Programm" WindowStyle 16ENDPROCPROC HAUPTFENSTER Window (%MaxX - x%) / 2,(%MaxY - y%) / 2 - x%,y% 'erzeugt ein bzgl. des Bildschirmes zentriertes HauptfensterENDPROCPROC BUTTONS let exit% = CreateButton(%HWnd,"Beenden",Width(%HWnd) - b% - 2,Height(%HWnd) - h% - 2,b%,h%)ENDPROC'#####################################################INITHAUPTFENSTERBUTTONSclear e% 'setzt die Variable e% auf 0whilenot e% 'so lange e% keinen Wert hat (also Null ist) ... Waitinput '... warte ... If GetFocus(exit%) 'wenn der Button mit dem Handle exit% angeklickt worden ist ... e%=1 '... setze e% auf 1 endifwendend

Dies ist die Offlinevariante vom Thread [Hauptfenster erstellen und Button abfragen].