SET  ::WM_MOUSEHOVER=0x02A1
SET  ::WM_MOUSELEAVE=0x02A3 
_SUB WIN3,W350H333,标签切换,
    TABS TABS1,L21T4W300H188,Page2:Name2:Title2:tip2333,
    ITEM ITEM4,L218T272W96H30,关闭,kILL \,
    ENVI @ITEM4.MSG=%&::WM_MOUSEHOVER%:  CALL DisplayGfile
    ENVI @ITEM4.MSG=%&::WM_MOUSELEAVE%:  TIPS -
_END
 
_SUB DisplayGfile
     ENVI @@Cur=?&&CurX;&&CurY
     TIPS. ,关闭,5000,0,@AL%&CurX%T%&CurY%
_END
 
CALL @WIN3
