XProfan

Windowtitle "Welches area has whom Cursor? - XProfan 11-Version"
'adaptation one Originals of Heinz Brill
'for XProfan 11.2a  by p.woodpecker, Wien/EU
Windowstyle 24:Window 800,600
cls rgb(200,200,255):font 2
Declare Edits%[],names$[],Content$[],y%,flg&,anz&
anz&=16'amount Editfields
setsize Edits%[],anz&:setsize Content$[],anz&
setsize names$[],anz&:names$[]=st$(int(&index+1))
y%=10

WhileLoop 0,anz&-1

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

EndWhile

While 1

    WaitInput
    clear flg&

    WhileLoop 0,Anz&-1

        If %GetFocus=Edits%[&Loop]

            Window Title " "+names$[&Loop]+". Editfeld has whom Cursor!  "
            flg&=1
            Content$[&Loop]=gettext$(Edits%[&Loop])
            locate (26+27*&Loop)\13,25:print Content$[&Loop];"    ";

        EndIf

    EndWhile

    ifnot flg&

        Window Title " something other has whom Cursor!  "

    endif

    case %Key=2:Break

EndWhile

End