如何在组织机构功能树中定位到某一节点

john

procedure TMainForm.PitchOrgNode;
var
  lNodes: TTreeNodes;
  i: integer;
  lBizURL: TBizURL;
  lOrgUnit: TOrgUnit;
  lFindID: string;
begin

  // 要定位的节点ID
  lFindID := 'GUEST';

  lBizURL := TBizURL.Create;

  // 显示整棵树，否则不显示的节点是找不到的
  OrgTreeView1.FullExpand;

  // 取出所有节点
  lNodes := OrgTreeView1.Items;
  for i := 0 to lNodes.Count - 1 do
  begin
    // 取某节点的机构ID
    lBizURL.URL := TOrgNode(lNodes.item.Data).ObjectID;
    lOrgUnit := OrgSys.OrgSystem.GetUnit(lBizURL);

    if lOrgUnit.ID = lFindID then  // 找到了
    begin
      OrgTreeView1.Select(lNodes.item, []);  // 定位到找到的节点
      OrgTreeView1.SetFocus;
      break;
    end;

  end;
  lBizURL.Free;
end;