¿Es Posible tener 2 o mas TmainMenu en un mismo Form?

[juanlaplata]

Paso a detallar:
Tabla Permisos:

• id (AutoInc)
• idUsuario
• idTipoUsuario
• ItemName

Entonces, en un form, tengo un TreeView, el cual cargo con todos los items del menu ppal en el create del form.


Al elegir el Item, se guarda en la tabla de permisos.
Debes optar una de dos alternativas.
Son permisos o restricciones.
Es decir (permiso) El usuario no verá ningin item hasta q le asignes alguno.
o (restriccion ) ve todos los items, salvo los q quieras ocultar.

Lo mas facil es reestringir, ya q el menu se ve completo en principio, y le vas ocultando items segun corresponda.
Al producirse un cambio de usuario, el menu debera verse completo por un instante, hasta q se oculten los items (restricciones) del nuevo usuario.

[webmasterplc]

tienes algun ejemplo en codigo si puedes

[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;