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 "If one at first Schleifendurchlauf 0 types knallt es"

While 1

    Input Test%

    If Test%

        Print Test%,"If Test% a worth has and these row carryed out becomes,\nkann one in the further course again 0 prompt."
        'if these row not carryed out becomes knallt it
        Print SizeOf(TestButton#[])

    Else

        Print Test%,"draußen"

    EndIf

    With TestButton#[0]

        Print .parent&,.hdl&

    EndWith

Wend