|
- ENVI &&WM_COMMAND=0x0111
- ENVI &&EN_CHANGE=0x0300
- _SUB WIN1,W354H309,
- ENVI &&i=0
- ENVI &&OldMsg=原始内容
- MEMO &Edit1,L10T10W275H140,%&OldMsg%,, //EDIT &Edit1,L10T10W275H140,%&OldMsg%,, //如果用MEMO,键盘操作Ctrl + A全选MEMO内容的时候,没动静 (如果用EDIT,键盘操作Ctrl + A全选EDIT内容的时候,有动静),想要EDIT也没动静的效果
- ENVI @WIN1.MSG=%&WM_COMMAND%::&&wp,&&lp, CALL OnCommand
- LABE &提示,L28T204W263H30,,,
- _END
- WIN1
- _SUB OnCommand
- //CALC -base=16 #&&ID=%&wp% % 0x10000 //低16位,控件ID
- CALC -base=16 #&&wCode=%&wp% / 0x10000 //高16位,操作码
- IFEX $%&EN_CHANGE% = %&wCode% ,! EXIT //不是改变
- //内容改变,响应
- // 不要用 MESS
- CALC #&i= %&i% + 1
- ENVI @&提示=内容改变了 %&i%
- //ENVI @&Edit1=%&OldMsg% //恢复旧内容,阻止改变
- _END
复制代码 |
|