TEAM ENVI^ ENVIMODE=1| ENVI^ FORCELOCAL=1
IFEX %CurFile%.LOG, LOGS * %CurFile%.LOG
SET  ::CBN_HOVER=0x7001
SET  ::CBN_HOVERBOXHWND=0x7002
SET  ::WM_MOUSEMOVE=0x0200
SET  ::LB_GETITEMRECT=0x0198

WIN1
_SUB WIN1,W280H150,LIST移动鼠标通知演示,
    LIST LIST2,L150T46W60H200,a1|b2|c4|d4|e555|f666|g777,,B2,
    SET &id=-1000000
    SET &id1=-1000000
    SET &HwndBox=0
    SET$#  &RC=*40 0   //RECT结构4*4 BYTE
    ENVI @LIST2.ID=?;&&LIST2_ID
    ENVI @this.MSG=command#%LIST2_ID%#%CBN_HOVERBOXHWND%::&&wp,&&lp, SET HwndBox=%lp%  //保存HwndBox
    ENVI @this.MSG=command#%LIST2_ID%#%CBN_HOVER%::&&wp,&&lp, IFEX #%lp%<>%id%, TEAM SET &S=| ENVI @LIST2.query=%lp%;&&s|ENVI @@Cur=?&&CurX;&&CurY| ENVI @T1=500| SET id=%lp%| CALC id1=%lp%-1| TIPS  ,%&S%,50000,1,@AL%&CurX%T%&CurY%
    ENVI @this.MSG=command#%LIST2_ID%#%CBN_CLOSEUP%: TEAM SET HwndBox=0|SET id=-100002|ENVI @T1=0| TIPS *   //选完 清T1，消失
    TIME -t:0 T1,100000, IFEX #[ %HwndBox%<>0 & %id%>0 ], ONT1 
    //新命令
_END

_SUB ONT1 
    ENVI @@SENDMSG=%HwndBox%;%LB_GETITEMRECT%;%id1%;@RC
    ENVI @@Cur=?@%HwndBox%;;;;;RC;&&bIn
    IFEX #%bIn%<1,TEAM SET id=-100001| ENVI @T1=0| TIPS *   //鼠标移出列表框提示消失
_END
