XProfan

Declare Handle Gridbox1
Declare Int ende
WindowTitle "Ende auch mit ESC !"
Window 800, 600
Gridbox1 = @Create("Gridbox", %HWnd, "Name;0;120;Wert 1;0;80;Wert 2;0;80", 0, 10, 80, 300, 200)
ende = 0
pExec("|Werte", %HWnd, Gridbox1)
UserMessages 1001
Locate 1, 2
Print "Ende auch mit ESC"

WhileNot ende

    WaitInput

    If %UMessage = 1001

        SetText %HWnd, "Gridbox " + Str$(&UwParam) + " mal aktualisiert !"

    EndIf

    Case %Key = 2  : ende = 1
    Case %Key = 27 : ende = 1

EndWhile

Proc Werte

    Parameters Handle Win, Grid
    Declare Int ende1, a, b
    ende1 = 0
    a = 0
    b = 0
    Randomize

    WhileNot ende1

        If GetText$(Win) <> ""

            Inc a
            AddString(Grid, "Werte :|" + Str$(Rnd(100)) + "|" + Str$(Rnd(1000)))

            If a > 10

                a = 0
                ClearList Grid
                Inc b
                SendMessage(Win, 1001, b, 0)

            EndIf

        EndIf

        Sleep 200
        case getText$(Win) = "" : ende1 = 1

    EndWhile

EndProc

UserMessages 0
End