XProfan

Declarar Handle Gridbox1
Declarar Int ende
Título de la ventana "Ende auch con ESC !"
Ventana 800, 600
Gridbox1 = @Crear("Gridbox", %HWnd, "Name;0;120;Wert 1;0;80;Wert 2;0;80", 0, 10, 80, 300, 200)
ende = 0
pExec("|Werte", %HWnd, Gridbox1)
Mensajes del usuario 1001
Localizar 1, 2
Imprimir "Ende auch con ESC"

Sinestar encargado ende

    WaitInput

    If %UMessage = 1001

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

    EndIf

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

EndWhile

Proc Werte

    Parámetros Handle Win, Grid
    Declarar Int ende1, a, b
    ende1 = 0
    a = 0
    b = 0
    Selección aleatoria

    Sinestar encargado ende1

        If GetText $(Win) <> ""

            Inc a
            AddStrings(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
        caso getText$(Win) = "" : ende1 = 1

    EndWhile

ENDPROC

Mensajes del usuario 0
End