XProfan

Windowtitle "Welches Feld hat den Cursor? - XProfan 11-Version"
'Adaption eines Originals von Heinz Brill
'für XProfan 11.2a  by p.specht, Wien/EU
Windowstyle 24:Window 800,600
cls rgb(200,200,255):font 2
Declare 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]=Create("Edit",%HWnd,Namen$[&Loop],10,y%,100,25)
    Inc y%,27

EndWhile

While 1

    WaitInput
    clear flg&

    WhileLoop 0,Anz&-1

        If %GetFocus=Edits%[&Loop]

            WindowTitle " "+Namen$[&Loop]+". Editfeld hat den Cursor!  "
            flg&=1
            Inhalt$[&Loop]=gettext$(Edits%[&Loop])
            locate (26+27*&Loop)\13,25:print Inhalt$[&Loop];"    ";

        EndIf

    EndWhile

    ifnot flg&

        WindowTitle " Etwas anderes hat den Cursor!  "

    endif

    case %Key=2:Break

EndWhile

End