设定打开客户端时自动展开“我的功能”，

Alice

procedure TProfessionalChild.FormShow(Sender: TObject);
var
  lUserNode: TUserNode;
  lFileName: string;
  lTreeNode:TTreeNode;
begin
  Inherited;
  if UserTreeView <> nil then
  begin
    lFileName := TCommonComponentLibrary.UserSystem.MyFuncsFolderFileName;//UserDesktopFolderFileName;
    lUserNode := TCommonComponentLibrary.UserTree.FindNodeByFileName(lFileName);
    lTreeNode:=UserTreeView.Find(lUserNode.GUID,False);
    if lUserNode <> nil then
    begin
      lTreeNode.Selected := True;
      lTreeNode.Expand(False);
    end;
  end;

end;