如何屏蔽起始页中的【我的工作台】节点

john

在自定义的界面空间起始页中：

procedure TZCTFORM.FormShow(Sender: TObject);
var
  lTreeNode:TTreeNode;
  lUserNode: TUserNode;
  lBizUrl:TBizUrl;
begin
  Inherited;
  mmiFlow.Visible:=False;
  mmiHelpTopic.Visible:=False;
  mmiHelpInex.Visible:=False;
  mmiHelpSearch.Visible:=False;
  mmiFlowNext.Visible:=False;
  mmiFlowBack.Visible:=False;
  mmiViewStandardButton.Visible:=False;
  if (UserTreeView <> nil) and (UserTreeView.Items.GetFirstNode<>nil) then
  begin
    UserTreeView.Items.GetFirstNode.Delete;
    UserTreeView.Refresh;
    if  UserTreeView.Items.count>0 then
    begin
      lTreeNode:=UserTreeView.Items.Item[0];
      lTreeNode.Expand(False);
      UserTreeView.TopItem :=lTreeNode;
      lTreeNode.Selected := True;
      lTreeNode.Text:='实有人口管理';
      lBizUrl:=TBizUrl.Create;
      try
        lBizUrl.URL:='Biz:\RKJEDZ';
        lUserNode:=TCommonComponentLibrary.UserTree.FindNodeByBizURL(lBizUrl);
        lTreeNode:= UserTreeView.Find(lUserNode.GUID,False);
      finally
        lBizUrl.Free;
      end;
      if lTreeNode<>nil then
      begin
        UserTreeView.TopItem :=lTreeNode;
        lTreeNode.Selected := True;
        lTreeNode.Expand(False);
      end;
      UserTreeView.HideSelection := False;
      UserTreeView.TabOrder := 0;
      UserTreeView.HotTrack := False;
      UserTreeView.ShowRoot:=False;
      UserTreeView.ShowRootNode:=False;
    end;
  end;
  if UserListView<>nil then
  begin
    UserListView.HotTrack:=False;
  end;
end;