目前可以用这种变通的方法来绕过
业务模型\系统空间\用户界面基础\界面库\系统接口\选择组织单元对话框。
procedure TSELECTORGUNITSFORM.RefreshSource;事件中
trvSource.BaseTree.GetNodesTreeList(lOrgNodes, lOrgTreeNodes, False,
False, True, True);
{增加下面的代码}
for I := lOrgTreeNodes.Count - 1 downto 0 do
if Sysutils.SameText(TBizNode(lOrgTreeNodes.Objects[I]).BizURL.URL, 'ORG:') then
begin
lOrgTreeNodes.Delete(I);
Break;
end; |