XProfan

Windowtitle "Welches Feld ha el Cursor? - XProfan 11-Version"
'Adaption uno Originals de Heinz Brill
'para XProfan 11.2a  by p.specht, Wien/EU
Windowstyle 24:Ventana 800,600
cls rgb(200,200,255):font 2
Declarar Edits%[],Namen$[],Inhalt$[],y%,flg&,anz&
anz&=16'Anzahl Editfelder
setsize Edits%[],anz&:setsize Inhalt$[],anz&
setsize Namen$[],anz&:Namen$[]=str$(int(&Index+1))
y%=10

WhileLoop 0,anz&-1

    Edits%[&LOOP]=Crear("Edit",%HWnd,Namen$[&Loop],10,y%,100,25)
    Inc y%,27

EndWhile

Mientras que 1

    WaitInput
    clear flg&

    WhileLoop 0,Anz&-1

        If %GetFocus=Edits%[&Loop]

            Título de la ventana " "+Namen$[&Loop]+". Editar campo ha el Cursor!  "
            flg&=1
            Inhalt$[&Loop]=gettext$(Edits%[&Loop])
            locate (26+27*&Loop)\13,25:imprimir Inhalt$[&Loop];"    ";

        EndIf

    EndWhile

    ifnot flg&

        Título de la ventana " Etwas más ha el Cursor!  "

    endif

    caso %Key=2:Romper

EndWhile

End