SET  ::WM_SETFOCUS                     =0x0007
WIN1

_SUB WIN1,W289H299,没有键盘焦点,
    ITEM Dummy,L-14T-14W1H1,
    ENVI @Dummy.ID=?Dummy_ID
    ITEM ITEM2,L45T52W60H30,ITEM2,ENVI @Tx1=1
    EDIT EDIT1,L48T93W60H30,EDIT1,,
    ITEM ITEM3,L51T130W60H30,ITEM3,ENVI @T1=1
    RADI RADI1,L48T163W60H30,RADI1,ENVI @T1=1,,
    RADI RADI2,L46T195W60H30,RADI2,ENVI @T1=1,,
    CHEK CHEK1,L143T42W60H30,CHEK1,ENVI @T1=1,
    PBAR PBAR1,L134T83W60H16,0,
    TIME T1,1, OnT1
    FORX * ITEM2 ITEM3 RADI1 RADI2 CHEK1 ,&&id, ENVI @%&id%.MSG=_%&WM_SETFOCUS%: ENVI @T1=150
_END

_SUB  OnT1
    ENVI @T1=0
    CALL $USER32.DLL,SetFocus,#%Dummy_ID%  //移走焦点 
_END

