XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Array: Viele Controls erstellen
declare e&[100]
declare x%,y%,z%
cls
x%=5
y%=10

whileloop 100

    inc z%

    if x% > 500

        y%=(y%+20)
        x%=5

    endif

    e&[z%]=create(Edit,%hwnd,str$(z%),x%,y%,100,18)
    x%=(x%+110)

endwhile

waitinput

declare e&[100]
declare x%,y%,z%
cls
x%=5
y%=10

Proc ClickedMultiItem

    Parameters b&[]
    Declare I%
    I% = IndexOf(b&[],%getfocus)

    If (I%) > -1

        Return Clicked(%getfocus)

    EndIf

EndProc

whileloop 100

    inc z%

    if x% > 500

        y%=(y%+20)
        x%=5

    endif

    e&[z%]=create("Edit",%hwnd,str$(z%),x%,y%,100,18)
    x%=(x%+110)

endwhile

While 1

    WaitInput

    If ClickedMultiItem(e&[])

        Print GetText$(%getfocus),"Hier sind die Edits"

    EndIf

Wend