XProfan

Class TestKlasse = parent&,\
hdl&,\
Bild&,\
Back&,\
x&,y&,\
Size&,\
TestKlasse@

Proc TestKlasse.TestKlasse

    Parameters parent&,groesse%,Bild&,Back&
    .parent& = parent&
    .Bild& = Bild&
    .Back& = Back&
    .Size& = groesse%
    .hdl& = Create("Button",.parent&,Str$(.Back&) + " " + Str$(Bild&),340,280,groesse%,groesse%)

EndProc

Class TestButton = TestKlasse,\
Anzahl&,\
TestButton@

Proc TestButton.TestButton

    Parameters b#[],parent&,Anzahl&,gr%,back&,Img&

    WhileLoop 0,Anzahl& -1

        b#[&Loop] = New(TestKlasse,%hwnd,gr%,back&,Img&)
        print b#[&Loop].hdl&,

    Wend

EndProc

Cls
Declare TestButton#[],test%
Var Test# = New(TestButton,TestButton#[],%hwnd,8,140,-23456,345673)
print
print "Wenn man beim ersten Schleifendurchlauf 0 eingibt knallt es"

While 1

    Input test%

    If test%

        Print test%,"Wenn Test% einen Wert hat und diese Zeile ausgeführt wird,\nkann man im weiteren Verlauf auch wieder 0 eingeben."
        'wenn diese Zeile nicht ausgeführt wird knallt es
        Print SizeOf(TestButton#[])

    Else

        Print test%,"draußen"

    EndIf

    With TestButton#[0]

        Print .parent&,.hdl&

    EndWith

Wend