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

[webmasterplc]

Buenas hay alguna manera de tener 2 o mas tmainmenu en un formulario y colocarlos visibles e invisibles en tiempo de ejecucion

[[Al González]]

¿Con qué finalidad?
¡Cambio!

[webmasterplc]

Estoy desarrollando una aplicacion que tiene dos modulos, uno de Sistema y Otro Administracion, y en ves de crear dos ejecutables crear uno y segun privilegios cambiarme de aplicacion, pero solo cambiaria el Tmainmenu

[juanlaplata]

Con una finalidad parecida, en mi caso lo q opte fue por tener:
Perfiles jerarquicos:
1-Administrador
2-Jefe
3-Empleado
Entonces, el administrador al ingresar ve el menu completo, y es quien decide q items del menu ppal. va a ver el Jefe.
Luego el Jefe, al ingresar vera los items q el administrador le asigno, y sera este quien decide q items ve el Empleado.

En un evento post-loqin se recorren todos los items del menu ppal. y se visualizan o no, segun corresponda el item para el perfil del usuario logueado.

Es mas o menos la idea.
En tu caso tendrias un Administrador y dos jefes ...

[webmasterplc]

Podras colocar algun ejemplo sencillo de referencia

[ecfisa]

Hola webmasterplc.

Una opción es que le asignes niveles a cada categoría de usuario, por ejemplo: Administrador 3, Jefe 2, Operario 1 y luego habilites o no los items de acuerdo al valor asignado en la propiedad Tag de cada TMenuItem.

Para ejemplificar, pone un TMainMenu con el siguiente formato y valores de Tag en sus subitems:

Menu1           Menu2  
----------------------------
Item1 ,Tag:1    Item1 ,Tag:1
Item2 ,Tag:2    Item2 ,Tag:2
Item3 ,Tag:3    Item3 ,Tag:3

En este ejemplo simple, selecciono el tipo de usuario desde un TComboBox y habilito/desabilito los subitems de acuerdo al nivel de usuario:

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
var
  i,j: Integer;
begin
  ComBoBox1.Items.AddObject('Administrador',TObject(3));
  ComboBox1.Items.AddObject('Jefe',TObject(2));
  ComboBox1.Items.AddObject('Operario',TObject(1));
  // Todos los subitems deshabilitados al comenzar
  with MainMenu1 do
    for i:= 0 to Items.Count-1 do
      if Items[i].Count-1 > 0 then
        for j:= 0 to Items[i].Count-1 do
          Items[i].Items[j].Enabled:= False;
end;

// Habilitar subitems acorde al nivel de acceso del usuario
procedure TForm1.ComboBox1Change(Sender: TObject);
var
  LvlAcceso: Integer;
  i,j: Integer;
begin
  LvlAcceso := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
  with MainMenu1 do
    for i:= 0 to Items.Count-1 do
      if Items[i].Count-1 > 0 then
        for j:= 0 to Items[i].Count-1 do
          Items[i].Items[j].Enabled:= LvlAcceso >= Items[i].Items[j].Tag 
end;

Logicamente en tu caso los datos del usuario deberán estar almacenado en alguna tabla de alguna BD.

Saludos.