请教一个功能的实现问题

sosoby

各位老师下午好，我在网上找到一个防止**按钮克星的代码，它的实现方法貌似是定义一个全局变量，在修改组件属性时，先检查这个全局变量，而后再决定是否修改组件属性。
它的主要代码如下：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
集变_手动解禁	逻辑型
旧窗口过程	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

信息框 (“解禁成功！”, 0, )

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

ban (按钮1.取窗口句柄 ())
ban (单选框1.取窗口句柄 ())
ban (选择框1.取窗口句柄 ())

子程序名	返回值类型	公开	备 注
ban
参数名	类 型	参考	可空	数组	备 注
hwnd	整数型

旧窗口过程 ＝ GetWindowLongA (hwnd, -4)
SetWindowLongA (hwnd, -4, 到数值 (&子类化按钮))

子程序名	返回值类型	公开	备 注
子类化按钮	整数型
参数名	类 型	参考	可空	数组	备 注
hwnd	整数型
消息值	整数型
参数1	整数型
参数2	整数型

变量名	类 型	静态	数组	备 注
z	整数型

如果真 (消息值 ＝ 10 且 参数1 ＝ 1)
如果真 (集变_手动解禁 ＝ 假)
激活窗口 (hwnd, 假)
' 信息框 (“非法解禁”, 0, )
返回 (-1)

z ＝ CallWindowProcA (旧窗口过程, hwnd, 消息值, 参数1, 参数2)
返回 (z)

子程序名	返回值类型	公开	备 注
_按钮2_被单击

集变_手动解禁 ＝ 真
按钮1.禁止 ＝ 假

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 集变_手动解禁, 逻辑型<br /> .程序集变量 旧窗口过程, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 信息框 (“解禁成功！”, 0, )<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ban (按钮1.取窗口句柄 ())<br /> ban (单选框1.取窗口句柄 ())<br /> ban (选择框1.取窗口句柄 ())<br /> <br /> .子程序 ban<br /> .参数 hwnd, 整数型<br /> <br /> 旧窗口过程 ＝ GetWindowLongA (hwnd, -4)<br /> SetWindowLongA (hwnd, -4, 到数值 (&子类化按钮))<br /> <br /> .子程序 子类化按钮, 整数型<br /> .参数 hwnd, 整数型<br /> .参数 消息值, 整数型<br /> .参数 参数1, 整数型<br /> .参数 参数2, 整数型<br /> .局部变量 z, 整数型<br /> <br /> <br /> .如果真 (消息值 ＝ 10 且 参数1 ＝ 1)<br />     .如果真 (集变_手动解禁 ＝ 假)<br />         激活窗口 (hwnd, 假)<br />         ' 信息框 (“非法解禁”, 0, )<br />         返回 (-1)<br />     .如果真结束<br /> <br /> .如果真结束<br /> z ＝ CallWindowProcA (旧窗口过程, hwnd, 消息值, 参数1, 参数2)<br /> 返回 (z)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 集变_手动解禁 ＝ 真<br /> 按钮1.禁止 ＝ 假

我发现这样的话会出现什么问题呢，就是一个窗口上有超过1个组件时，在**按钮克星下，只要有一个组件解禁了，那么其他组件也就直接解禁了。
我应该如何避免这个问题呢？