FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Una duda sobre Menus
Hola! Mi pregunta es, como puedo hacer para saber la "coordenada" de un submenu, es decir, por ejemplo tengo lo siguiente:
Código:
Procesos Seguridad Remisiones Perfiles Facturas Usuarios agradecere sus respuestas...
__________________
Visita mi Weblog de Ingeniería de Software... |
#2
|
||||
|
||||
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 |
#3
|
||||
|
||||
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:
En el evento OnClick de los ítemes del menú puedes usar la función así:
// Saludos |
#4
|
|||
|
|||
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...
__________________
Visita mi Weblog de Ingeniería de Software... |
#5
|
|||
|
|||
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/
__________________
Raulp |
|
|
|