起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 194|回复: 10

【结帖】请问如下需求怎么实现那?**

[复制链接]
发表于 2008-3-26 16:19:26 | 显示全部楼层 |阅读模式
我需要在主界面上根据当前焦点所在的功能取该功里赋值的参数的值。也就是当主界面上功能不断切换的时候能成功的取到不同功能中的参数值。比如说:在A功能中给参数 paramcs 赋值是1 ,而在功能B中给参数 paramcs 赋值是2 ,而在功能C中给参数 paramcs 赋值是3。当功能由A切换到B时,能及时获得B的参数值2。 当功能由B切换到C时,也能及时获得C的参数值。
请问这样的需求该怎么实现好呢?
回复

使用道具 举报

发表于 2008-3-26 16:27:00 | 显示全部楼层
上一个帖子,不是已经有了功能切换时候的代码了吗?
在哪里用代码对参数赋值就可以了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-26 16:51:35 | 显示全部楼层

正是因为那个不能满足客户需求啊

正是因为那个不能满足客户需求啊。那个时基于功能创建的时候才赋参数值的 啊,要是同时打开了几个功能时相互切换就不能达到要求了啊。
回复 支持 反对

使用道具 举报

发表于 2008-3-26 16:55:04 | 显示全部楼层
功能切换也是那段代码
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-26 17:10:03 | 显示全部楼层

现在的问题是如何知道功能切换了

现在的问题是如何得知当前功能得参数值。
您没看懂我一楼得具体需求,或者是我没表述清楚。
回复 支持 反对

使用道具 举报

发表于 2008-3-26 17:12:01 | 显示全部楼层
那可能我没有理解,请楼主再详细说明一下吧
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-26 17:22:47 | 显示全部楼层

是这样的

是这样的:
我需要在主界面上根据当前焦点所在的功能取该功能里赋值的参数的值。也就是当主界面上功能不断切换的时候能成功的取到不同功能中的参数值。比如说:在A功能中给参数 paramcs 赋值是1 ,而在功能B中给参数 paramcs 赋值是2 ,而在功能C中给参数 paramcs 赋值是3。当功能由A切换到B时,能及时获得B的参数值2。 当功能由B切换到C时,也能及时获得C的参数值。
是切换 (只是主界面上同时打开的若干个功能之间的切换)。
我现在的:
param:=SYSTEMUTILS.TContextUtils.GetParam(Context,'Biz:\COMMON\MBCS.ParamGroup','MBCS');
param.Value:='1';
参数赋值语句是写在功能ONCREATE上面的,所以只有当功能重新打开时才能改变。(比如说:当A功能打开时参数赋值是1,然后同时又打开B功能时参数赋值是2,这时如果在不重新打开A功能的情况下切换到A功能(通过主界面上的TAB)那么参数值不会是我想要的A功能里的赋值1)
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-26 17:27:25 | 显示全部楼层

总之现在的问题就是

总之现在的问题就是:
我在功能里找不到一个合适的事件来写参数赋值语句。
比如:funconfocus(实际不存在是我举例的),当当前功能获得焦点的时候。
请问有什么办法吗?(或许我在功能里给参数赋值的思路更本就是不对的,那么请提供一种别的解决途径。谢谢)
回复 支持 反对

使用道具 举报

发表于 2008-3-26 17:31:55 | 显示全部楼层
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-27 10:00:54 | 显示全部楼层

现在已经可以了。谢谢。揭帖吧

我的已经可以了。谢谢。揭帖吧
需要说明的是:
1.通过ObjectHelper.CallMethod(AFunc.MainForm, 'RefreshData', []);
调用自己功能中的的函数RefreshData'是可以的。 但是您选择的主界面上的事件procedure TSTANDARDSTYLEMAINFORM.DoFuncActivate(Sender: TObject; AFunc: TFunc); 是不合适的,因为那个函数根本不会每次切换的时候都触发,而仅仅是在第一次打开一个功能时触发。应该找的事件是procedure TSTANDARDSTYLEMAINFORM.ShowContainer(AContainer: TFuncContainer);

但不管怎么说都谢谢了!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-9 18:04 , Processed in 0.042434 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表