XProfan

Windowtitle "Welches champ hat den Cursor? - XProfan 11-Version"
'Adaption eines Originals de Heinz Brill
'pour XProfan 11.2a  by p.specht, vienne/EU
Windowstyle 24:Fenêtre 800,600
cls rgb(200,200,255):font 2
Déclarer Edits%[],Namen$[],le contenu$[],y%,flg&,anz&
anz&=16'Anzahl Editfelder
setsize Edits%[],anz&:setsize le contenu$[],anz&
setsize Namen$[],anz&:Namen$[]=str$(int(&index+1))
y%=10

WhileLoop 0,anz&-1

    Edits%[&LOOP]=Créer("Edit",%HWnd,Namen$[&Boucle],10,y%,100,25)
    Inc y%,27

Endwhile

Tandis que 1

    WaitInput
    clear flg&

    WhileLoop 0,Anz&-1

        Si %GetFocus=Edits%[&Boucle]

            Titre de la fenêtre " "+Namen$[&Boucle]+". Modifier le champ de hat den Cursor!  "
            flg&=1
            le contenu$[&Boucle]=gettext$(Edits%[&Boucle])
            locate (26+27*&Boucle)\13,25:imprimer le contenu$[&Boucle];"    ";

        EndIf

    Endwhile

    ifnot flg&

        Titre de la fenêtre " autre chose hat den Cursor!  "

    endif

    cas %Key=2:Pause

Endwhile

Fin