【结贴】为什么从2401升级到2936的点开某个功能在取数据时的漏斗怎么没有了？**

dragonsoft

业务模型\系统空间\用户界面基础\界面库\组件库

修改函数
procedure TOperatorFuncTreeView.Click;  
。。。
if (SelectedNode.NodeKind = TBizObjectKind.boFunc) then
        TSystemCore.FuncManager.RunFunc(FContext, '',
          SelectedNode.BizURL.URL, '', False, nil, False)
。。。



改成下面这样：
procedure TOperatorFuncTreeView.Click;  
。。。
if (SelectedNode.NodeKind = TBizObjectKind.boFunc) then
begin
    try
      FOldCursor := Forms.Screen.Cursor;
      Forms.Screen.Cursor := Business.Forms.Controls.crHourGlass;
        TSystemCore.FuncManager.RunFunc(FContext, '',
          SelectedNode.BizURL.URL, '', False, nil, False)
     finally
          Forms.Screen.Cursor := FOldCursor;
    end;
end
。。。

按照上面的修改，比如打开组织机构的组织机构设计器是可以出现鼠标变换为漏斗，但是我继续点击人员或者组织机构就不变换漏斗了，还需要在哪里修改呢，可否写明白些

jiahaiming

楼上的代码是用来控制打开功能时，鼠标光标的。
“但是我继续点击人员或者组织机构就不变换漏斗了，还需要在哪里修改呢，”
这句是什么意思呢？
是要在功能内部操作时，控制光标吗？

dragonsoft

比如说，这样子吧，业务功能树有组织机构、组织机构--部分，我如果打开组织机构会有沙漏出现，现在我继续打开组织机构、或者人员，这个时候就不会出现沙漏的状态。

jiahaiming

哦，楼主是要修改“组织机构设计器”这个功能了！

jiahaiming

参照楼上的代码，在相关控件的单击事件里控制就可以了。

dragonsoft

这是假设，还有比如我们自己有做了一些业务功能，我打开这个功能，变成漏斗状态，还有比如在打开待办任务的信息时，没有完全出来是要变成沙漏状态

dragonsoft

搞定了，好费周折，谢谢，结贴吧