XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Objekte zerstören
Lauffähig ab Profan-Version 5.0
Erklärung:
----------
Dieses Beispiel demonstriert, wie man mit einem Befehl ein
Objekt zertören kann.
Es bedeutet:
------------
cls          - erstellt Standardfenster (640 * 480)
@DestroyWindow(N)     siehe Profan - Hilfe
-----------------------------------------------
declare button%,exit%,e%              Variablen declarieren
let e%=0                              Zueiungen
cls
let button%=createbutton(%HWnd,Zu zerstörendes Objekt (anklicken),10,10,240,24)  ertellt Button
let exit%=createbutton(%HWnd,ENDE,10,40,100,24)                                  erstellt Button

Whilenot e%

    Waitinput                               warten auf Eingabe

    If @GetFocus(exit%)                     wenn exit% den Focus hat

        let e%=1                             lasse e%=1 sein (beendet Programm)

    Elseif getfocus(button%)               wenn button% den Focus hat

        @DestroyWindow(button%)              zerstöre button%

    Endif

Wend