Menús en tiempo de ejecución

[Mona]

Mira Lepe, si entro al foro, no es para que me vaceen, con más delicadeza se pueden pedir las cosas, creo que no es necesario explicar a fondo cuales son los datos que manejo en la b.d.

Al entrar al foro, lei uno a uno las respuestas y preguntas, si tomo todo lo que dicen ahi y lo implemento en un nuevo proyecto, no sale nada, mi problema es muy simple, necesito crear menús dinámicos, leyendo de una b.d. necesito padres, hijos, hijos de hijos y así sucesivamente, cuando el usuario presiona click en algún hijo, se ejecutará algo, que en este caso es relevante. Ej de como se arma el menú: Tiene dos opciones principales:SEGURIDAD DEL SISTEMA y TRANSACCIONES, por la opción SEGURIDAD se encuentra los hijos: Grupo de Usuarios y Usuarios del Sistema, dentro de la opción Grupo de Usuarios, se puede escoger Cargue, Ajuste, Ensayos
SEGURIDAD DEL SISTEMA TRANSACCIONES
Grupo de Usuarios
Cargue
Ajuste
Ensayo
Usuarios del Sistema

Solo quiero un ejemplo que se pueda implementar y ajustar a las necesidades de cada usuario que lo vea. Mil gracias

[[Lepe]]

Empezado por Mona

Mira Lepe, si entro al foro, no es para que me vaceen, con más delicadeza se pueden pedir las cosas

Despues de enviar el Post, me di cuenta de que era tu primer mensaje, por eso edité el mensaje y le añadí los asteriscos, precisamente para que no te tomes a mal el comentario, quizás subido de tono, pero desde luego es una gran verdad.

Empezado por Mona

creo que no es necesario explicar a fondo cuales son los datos que manejo en la b.d.

No quiero los datos personales de tus clientes, sólo la forma en la que guardas los menúes, ni siquiera los nombres reales de cada usuario, pero necesito saber como diferencias los padres de los hijos en tu BBDD para poder armar el menú.

Empezado por Mona

Al entrar al foro, lei uno a uno las respuestas y preguntas, si tomo todo lo que dicen ahi y lo implemento en un nuevo proyecto, no sale nada,

El único proyecto totalmente funcional es el proporcionado por Neftali, el resto son trozos de código, tienes que entender qué hace y cómo lo hace, despues tienes que adaptarlo. Es más, te debería dar un "access violation" porque el StringList "ListPredef" no está creado; tampoco tiene elementos dentro, por tanto no debe crear ningún elemento de menú.

He editado el mensaje nº 13 de este hilo, ahora si creará 2 Menús:
- primera opcion de menú
- segunda opción de menú.

Crearlos como menú principal (Padre) o como elemento de menú (un hijo simple) es sólo cuestión de decirle quien es el Padre de ese elemento. Si el padre es el MainMenú, lo crea como Menú principal. Si el Padre es un elemento de menú, creará un SubMenú automáticamente.

La línea que dice el padre de un elemento es esta:

Código Delphi [-]
ppPredef.Items.Add(mnu);

El padre en este caso es "ppPredef".
Si ya tenemos creado el elemento de menú ppPredef.Items[3] y damos esta sentencia:

Código Delphi [-]
ppPredef.Items[3].Add(mnu);

El "mnu" será un submenú del elemento 3

Empezado por Mona

mi problema es muy simple, necesito crear menús dinámicos, leyendo de una b.d. necesito padres, hijos, hijos de hijos y así sucesivamente,

De simple nada. Quieres crear controles en tiempo de ejecución, eso son "temas avanzados". Necesitas como mínimo un par de bucles y puede que llamadas recursivas para crear todos los menúes.

Empezado por Mona

Solo quiero un ejemplo que se pueda implementar

Dependerá de como almacenes los menúes en tu base de datos.
En este hilo hay mucha información, es cuestión de masticar despacio.

Realmente estoy dispuesto a ayudarte, pero ten en cuenta que crear un programa desde cero, que pueda crear padres, hijos, asignarles el evento OnClick, etc, son muchas lineas de código y tiempo; aqui ayudamos sin ánimo de lucro.

[Mona]

Entiendo perfectamente, que es sin ánimo de lucro que ustedes prestan su colaboración y les agradezco.

Logré implementar en tiempo de ejecución los menús, y como dices utilicé una forma recursiva y no tengo ahora ningún inconveniente. Lepe, te agradezco tus buenas intenciones, al citar que quería un ejemplo, era simplemente que se indicara como crear varios nodos padres e hijos, ya cada cual miraría como adecuarlo a sus necesidades, había visitado varias páginas buscando ayuda en este tema, y solo creaban un nodo padre y un hijo, pero de ahí no más, y al tratar de hacerlo como lo necesitaba, dejaba de funcionar el ejemplo que colocaban.

Para la próxima tendré en cuenta escribir más detalladamente, de todas formas muchas gracias.

[[Lepe]]

Pues me alegro que lo hayas solucionado, así que ahora toca un detalle que puede darte dolores de cabeza, realmente no se ha comentado en el hilo.

Es el Owner de cada MenuItem. Si necesitas destruir los menús que acabas de crear, porque entra un usuario diferente en el sistema, Delphi podría intentar liberarlos otra vez al finalizar la aplicación, y entonces, podrías recibir errores extraños (access violation, index out of bound, etc).
La sentencia clave es esta:

Código Delphi [-]
mnu := TMenuItem.Create(ppPredef);

Con eso se le dice a Delphi que al destruir el ppPredef (TmainMenú o TpopupMenu), éste se encargue de liberar el "mnu" creado.

Si haces alguna rutina para destruir los menús, es cuando puede venir el fallo, en este caso y sólo en este caso, usa:

Código Delphi [-]
mnu := TMenuItem.Create(nil);

Para decirle a Delphi que nadie (nil) se encargará de destruirlos porque lo haces tú en esa rutina que hablo.

Saludos.

[quinqui]

oh eso es cierto O_O

en mi caso precisamente tengo el asunto de las sesiones y de hecho el menú que se debe desplegar debe estar condicionado por los permisos de cada usuario.

en un principio intenté lo de liberar (Free, incluso Destroy) los menús creados cada vez que el usuario cerraba la sesión, pero me salían errores (entre los cuales unos como los que has comentado) de que no podía crear el menú X, al iniciar una nueva sesión, pues ya existía, etc....

por cosa de tiempo desistí de seguir viendo por qué pasaba eso, y cambié todo lo hecho, limitándome a hacer lo que mi jefe me recomendó, que fue simplemente crearlos todos en edición, mostrar los que se correspondían con el usuario y sus permisos, ocultarlos una vez cerrada la sesión, y volver a mostrarlos cuando se iniciara una nueva, según los permisos del nuevo usuario...

probaré lo de crearlos no con un menú padre, como lo hiciera siguiendo tu primer ejemplo, Lepe, sino con el Nil, a ver qué sale y si puedo implementar el menú autocreado como lo planeé desde el principio en vez de lo de ocultar y mostrar jajaja ^^U

gracias por el dato!