回 帖 发 新 帖 刷新版面

主题:关于工具条的控制问题请教

如果用用以下代码创建一个工具条:

set classlib to toolbar
frmtb1 = createobject('toolbar.tool')
frmtb1.show
frmtb1.dock(0)

,现在希望在每个子表单运行期间工具条无效,在子表单关闭后工具条有效,目前采用方法如下:
在子表单init事件中写入“frmtb1.Enabled=.F.”,然后在子表单的release事件中写上“frmtb1.Enabled=.T.”,可以控制工具条是有效或无效;但是,这种方法需要对每一个子表单都这样处理,有些麻烦。

是否有简单的方法(即不用对每个子表单进行单独设置,而可以保证所有子表单运行时工具条无效,释放子表单后工具条又有效)?就算今后增加再多的子表单也不用如上面那么麻烦的方法,可有 ?感谢指教!

回复列表 (共1个回复)

沙发

1、把所有字表单都设为模式表单
2、调用字表单之前加入:主表单.工具条.Enabled=.F.
3、主表单的 GotFocus 事件中加入:This.工具条.Enabled=.T.

我来回复

您尚未登录,请登录后再回复。点此登录或注册