[juanlaplata]

Cargar menu en Treeview:

Código Delphi [-]
procedure Cargar_Menu(topItem:TTreeNode;Items:TMenuItem); 
var i:integer;     
     Nodo: TTreeNode;     
     items2:TMenuItem; 
begin 
for i:=0 to Items.Count-1 do    
  begin         
    with TTreeview1.Items do              
    begin              
      if(Items[i].Caption <>'-')and(Items[i].Visible)then                  
        begin                  
        Nodo:= AddChild(TopItem, StringReplace(Items[i].Caption,'&','',[]));                   
        items2:=  Items[i];                  
        Cargar_Menu(Nodo,items2);                  
        end;              
    end;    
  end; 
end;

Ocultar Items:

Código Delphi [-]
procedure Permisos_Menu(idUs, tipoUs:integer); 
var i:integeR;     
     item : Tcomponent; 
begin permisos.Close; 
  permisos.Params[0].AsInteger:=idUs; 
  permisos.Params[1].AsInteger:=TipoUs; 
  permisos.Open; permisos.First; 
  for i:= 0 to permisos.RecordCount-1 do    
    begin    
    item:=findComponent(permisosItemName.AsString);    
    if item <> nil then  item.visible := False ;    
    permisos.Next;    
    end; 
end;