设置OrgTreeView从哪些节点开始显示树形视图

ntcp

1、显示当前节点的DisplayName

procedure TMainForm.Button4Click(Sender: TObject);
begin
  dialogs.ShowMessage(OrgTreeView1.SelectedNode.DisplayName); {显示当前节点的DisplayName}
end;

2、可以通过设置OrgTreeView的StartWithNodes属性指定从哪些节点开始显示树形视图，即以哪些节点作为树形视图的根节点，并可以通过ShowOptions属性来设置显示选项，代码示例如下：

procedure TMainForm.btnSetStartWithNodesClick(Sender: TObject);
var
lBizNode: TBizNode;
lBizURL: TBizURL;
begin
  { 清除OrgTreeView1 }
  OrgTreeView.StartWithNodes.Clear;
  lBizURL := TBizURL.Create;
  try
    { 显示采购部 }
    lBizURL.URL := 'Org:\ROOT\YGJT.OGN\CGB.dpt';
    lBizNode := BizTree.BizTreeStructure.FindNodeByBizURL(lBizURL);
    if lBizNode <> nil then
      OrgTreeView.StartWithNodes.AddObject(lBizNode.GUID, lBizNode);
      OrgTreeView.ReloadTree;
   finally
     lBizURL.Free;
   end;
end;