
ENVI &&WM_COMMAND=0x0111
ENVI &&EN_CHANGE=0x0300
_SUB WIN1,W354H309,
    ENVI &&i=0
    ENVI &&OldMsg=原始内容
    MEMO &Edit1,L10T10W275H70,%&OldMsg%,,
    MEMO &Edit2,L10T82W275H70,%&OldMsg%,,
    ENVI @&Edit1.ID=?;&&ID1
    ENVI @&Edit2.ID=?;&&ID2
    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
    IFEX #%&ID%=%&ID1%, ENVI @&提示=内容改变了    %&i% Edit1 
    IFEX #%&ID%=%&ID2%, ENVI @&提示=内容改变了    %&i% Edit2 
    //ENVI @&Edit1=%&OldMsg%  //恢复旧内容，阻止改变
_END

