【结贴】鼠标光标问题**

浙江电联

从2435版本升级至2827后,在主界面打开功能时,鼠标光标不再出现等待的漏斗形状,但用studio 调试运行时是正常的,是什么原因屏蔽了这一功能?

yancm

2827版本没有提供此特性。3002版本提供了打开功能时变换鼠标为漏斗

浙江电联

2435版本都有,2827调试运行时也有,为什么会这样? 如果没有要怎么实现

yancm

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

修改函数
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
。。。

zfang

问题解决了吗，楼主？

浙江电联

从业务功能树运行功能时是正常的，点主菜单或待办任务运行就不正常了，点击之后看起来没有反应，直到功能出现界面（也就是激活的时候）才出现一下漏斗光标，看起来就是前面的鼠标状态被覆盖了，但在开发环境中从初始化运行又是正常的

jiahaiminghr

楼主使用的哪个版本，我在3012中测试是正常的。
点击功能树或待办任务后，指针变漏斗状，功能启动后，恢复。

kitchan

2827版本,从studio中运行是正常的,很是奇怪

杭州世晨

经核查，是TSystemCore.FuncManager.RunFunc（）将光标强制改成箭头。
能否提供修改RunFunc()的方法？

*** 6楼“从业务功能树运行功能时是正常的”现验证是不正常的。
*** 7楼请看1楼。
*** 希望提供一种不需要升级，就能有漏斗光标或其他类似机制，让使用者感觉程序在运行而不是死机。

kitchan

在系统核心库中InternalRunFunc中增加Forms.Screen.Cursor := Business.Forms.Controls.crHourGlass;
在Application的OnIdle事件增加Forms.Screen.Cursor := Business.Forms.Controls.crDefault;暂时解决