Una duda sobre Menus

[JorgeBec]

Hola! Mi pregunta es, como puedo hacer para saber la "coordenada" de un submenu, es decir, por ejemplo tengo lo siguiente:

Procesos               Seguridad
   Remisiones             Perfiles
   Facturas                Usuarios

Por ejemplo Facturas seria la 1.2 ó Usuarios será la 2.2, no se si me explique!

agradecere sus respuestas...

[[Lepe]]

En principio, un menu tiene la propiedad items de tipo TmenuItems, tendrías que realizar una funcion (recursiva, por ejemplo) para recorrer todos los elementos, comprobar si tiene un submenú y llamar a esa rutina misma rutina para cada submenú. Con un simple contador puedes ir añadiendo el 1.3.2.5

Quizás sabiendo por qué quieres hacer eso haya otra solución.

Saludos

[roman]

Desconozco si hay una forma directa de hacerlo pero puedes obtener las coordenadas a patir de la propiedad MenuIndex de un ítem y recorriendo el menú hacia arriba con la propiedad Parent.

Por ejemplo, la siguiente función te devuleve una cadena caon las "coordenadas" del ítem que le pases:

Código Delphi [-]
function MenuCoords(Item: TMenuItem): String;
var
  Parent: TMenuItem;

begin
  Result := IntToStr(Item.MenuIndex + 1);

  Parent := Item.Parent;
  while Parent.MenuIndex <> -1 do
  begin
    Result := IntToStr(Parent.MenuIndex + 1) + '.' + Result;
    Parent := Parent.Parent;
  end;
end;

En el evento OnClick de los ítemes del menú puedes usar la función así:

Código Delphi [-]
Capton := MenuCoords(Sender as TMenuItem);

// Saludos

[JorgeBec]

Lo que estoy haciendo es un modulo de seguridad, basado en perfiles de usuario, la idea es que cuando configure un perfil, me traiga todos los items del menu, despues ir seleccionando a los items que ese perfil tiene acceso y grabarlos en una base de datos, despues a la hora que doy de alta un usuario asignarle un perfil y a la hora que este usuario entra al sistema solo dejar visibles los items de los menus a los que tiene acceso, no se si me explique???

agradecere su respuesta...

[raulparraco]

En la siguiente direccion existe Software de punto de venta utiliza firebird/interbase y esta desarrollado en Delphi, donde se implanta use sistema de seguridad que te puede servir como guia

http://ventas.sourceforge.net/