组织机构功能树中如何设置从那个节点开始显示以及显示到部门那个级别

john

procedure TMainForm.ShowOrgTreeView(ADeptUrl:string);
var
  lBizNode: TBizNode;
  lBizURL: TBizURL;
begin
  OrgTreeView1.StartWithNodes.Clear; {清除OrgTreeView1}
  lBizURL := TBizURL.Create;
  try
    lBizURL.URL := ADeptUrl;  {从那个节点开始显示}
    lBizNode := BizTree.BizTreeStructure.FindNodeByBizURL(lBizURL);
    if lBizNode <> nil then
      OrgTreeView1.StartWithNodes.AddObject(lBizNode.GUID, lBizNode);
    OrgTreeView1.ShowOptions := OrgTreeView1.ShowOptions -
      [TBizObjectKind.boPositionMember, TBizObjectKind.boPersonMember];
    OrgTreeView1.ReloadTree;
  finally
    lBizURL.Free;
  end;
end;