这个版本的脚本的一个问题
修改一下业务模型\系统空间\用户界面基础\库\公共组件库
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; |