起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 116|回复: 3

【搞定】右键单击业务功能树的文件夹出错**

[复制链接]
发表于 2007-7-20 12:54:56 | 显示全部楼层 |阅读模式
看图,版本:2617

{BE830E98-2298-49A0-B604-4BF514C9B37A}.jpg

8.53 KB, 下载次数: 79

回复

使用道具 举报

发表于 2007-7-20 14:00:50 | 显示全部楼层
产品缺陷,升级后解决。
回复 支持 反对

使用道具 举报

发表于 2007-7-20 14:03:42 | 显示全部楼层
这个版本的脚本的一个问题
修改一下业务模型\系统空间\用户界面基础\库\公共组件库
procedure TOperatorFuncTreeView.DoContextPopup(MousePos: TPoint; var Handled: Boolean);
var
  lNode: TTreeNode;
  lFuncNode: TUserBizNode;
begin
  lNode := GetNodeAt(MousePos.X, MousePos.Y);
  if lNode = nil then
    Exit;

  lFuncNode := lNode.Data as TUserBizNode;
  if (lFuncNode.NodeKind <> TBizObjectKind.boFunc) then    //改这句,改成<>
    Exit;

  Handled := True;

  TSystemCore.FuncManager.RunFunc(FContext, '',
    lFuncNode.BizURL.URL, '', True, nil, False);
end;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-7-20 14:19:19 | 显示全部楼层
受到,结帖。
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-1-12 18:55 , Processed in 0.039766 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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