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;