|
本帖最后由 527104427 于 2015-6-22 11:42 编辑
按钮 1、2 都是无效的,只有 3 能起作用。也就是说,只能用LABE画个按钮,再捕捉鼠标。这样想实现凹凸的效果,得费很大劲。
- SET ::WM_LBUTTONUP=0x0202
- CALL @Calc_exe
- _SUB Calc_exe,W436H386,软键盘,,,,, -top -nfocus
- ITEM -na &&I1,L12T57W30H30,1,SEND 1,
- LABE -mod -vcenter -center &&I2,L54T57W30H30,2,*SEND 2,
- LABE -mod -vcenter -center &&I3,L96T57W30H30,3,
- ENVI @this.MSG=_%&::WM_LBUTTONUP%: OnMouse
- _END
- _SUB OnMouse
- ENVI @this.Cur=?&&X;&&Y;&&cX;&&cY
- ENVI &&X1=96
- ENVI &&Y1=57
- ENVI &&W=30
- ENVI &&H=30
- CALC &&X2=%X1% + %W%
- CALC &&Y2=%Y1% + %H%
- IFEX $%cX%>%X1%, IFEX $%cX%<%X2%, IFEX $%cY%>%Y1%, IFEX $%cY%<%Y2%, SEND 3
- _END
复制代码 |
|