【结贴】多选

zhjkill · 发表于 2009-7-15 14:17:31

设置字段（数据集－字段编辑器－字段）属性的按钮选项将bohideOnreadOnly勾去就可以
代码怎么写成
YZYWXX.TYZYWXX.Create.FIELD_YZSJJ_SQYZMC.Button.Options:=[boHideOnReadOnly];
为什么报错

[错误]Biz:\HGOPERATION\YZSQ\YZSQGLWJJ\YZSPD.FUNC.DIR\YZSPDFORM.FORM.PAS(48, 61): Undeclared identifier "boHideOnReadOnly"

zhjkill · 发表于 2009-7-15 14:29:39

代码应该写这样的
YZYWXX.TYZYWXX.Create.FIELD_YZSJJ_SQYZMC.Button.Options:=[boDisableOnParentDisabled,boHideOnDisabled];
错误
[错误]Biz:\HGOPERATION\YZSQ\YZSQGLWJJ\YZSPD.FUNC.DIR\YZSPDFORM.FORM.PAS(48, 61): Undeclared identifier "boDisableOnParentDisabled"

shangxy · 发表于 2009-7-15 14:38:22

NameSpace: Business.Forms
--------------------------------------------------------------------------------
TDataControlButtonOption = (boDisableOnParentDisabled, boHideOnDisabled, boHideOnReadOnly);

zhjkill · 发表于 2009-7-15 14:51:34

YZYWXX.TYZYWXX.Create.FIELD_YZSJJ_SQYZMC.Button.Option=(boDisableOnParentDisabled, boHideOnDisabled);
这样写也错误啊

shangxy · 发表于 2009-7-15 15:06:57

类似这样写：
DataSetBZSJJ1.BizFieldByName('zd2').Button.Options :=[TDataControlButtonOption.boHideOnReadOnly];

zhjkill · 发表于 2009-7-15 15:44:25

TYZYWXX.Create.DataSetYZSJJ.BizFieldByName('SQYZMC').Button.Options:=[TDataControlButtonOption.boDisableOnParentDisabled,TDataControlButtonOption.boHideOnDisabled];
错误
[错误]Biz:\HGOPERATION\YZSQ\YZSQGLWJJ\YZSPD.FUNC.DIR\YZSPDFORM.FORM.PAS(48, 11): Not enough actual parameters
在功能里写代码怎么调用业务信息

shangxy · 发表于 2009-7-15 15:48:35

你不要这样，如果在功能中调用你放一个数据集代理控件来操作
TSQLDataSet(DataSetBroker1.DataSet).BizFieldByName('SQYZMC').Button.Options

zhjkill · 发表于 2009-7-15 16:05:47

TSQLDataSet(dsbMaster.DataSet).BizFieldByName('SQYZMC').Button.Options:=[TDataControlButtonOption.boDisableOnParentDisabled,TDataControlButtonOption.boHideOnDisabled];如上测试后，button一直是显示的，没隐藏

shangxy · 发表于 2009-7-15 16:09:27

TSQLDataSet(dsbMaster.DataSet).BizFieldByName('SQYZMC').Button.Options:=TSQLDataSet(dsbMaster.DataSet).BizFieldByName('SQYZMC').Button.Options-[TDataControlButtonOption.boHideOnReadOnly]

zhjkill · 发表于 2009-7-15 16:11:10

说错了
设置字段（数据集－字段编辑器－字段）属性的按钮选项将bohideOnreadOnly勾上
功能代码如下
TSQLDataSet(dsbMaster.DataSet).BizFieldByName('SQYZMC').Button.Options:=[TDataControlButtonOption.boDisableOnParentDisabled,TDataControlButtonOption.boHideOnDisabled];
测试后，button一直是显示的，没隐藏

		自动登录	找回密码
密码			立即注册