Controlar Menu

[ksi9sito]

que tal amigos, una consulta ;
he creado una aplicacion q' tiene una serie de opciones
que trabajan muy bien .lo q' pretendo es controlar mediante
una tabla las opciones a ejecutar por usuario.
en primera instancia les dire que en el formulario
principal solo tengo un objeto TMainMenu sin ninguna opcion
establecida y adherido en el uses todos los formularios con
los q' trabaja el proyecto. ahora solo he podido indicarle las
opciones en el menu atravez de una tabla como sigue
i:=0;
while not dtModulo.eof do
Begin
MyItem[i] := TMenuItem.Create(Self);
MyItem[i].Caption :=dtModuloOPCION.AsString;
Menu.Items.Add(MyItem[i]);
dtModulo.Next;
i:=i+1;
End;
pero lo que quisiera es tambien guardar en la bd el evento a ejecutar
en cada opcion. no se si me pueden ayudar. Gracias de antemano

[Alfredo Soler]

Hay que evaluar varios aspectos con el problema que planteas

1- Las opciones pueden variar considerablemente en el futuro, que merezca la pena crear las opciones del menú.

2 - El tener las opciones en la tabla es porque cada vez que crees una opción no quieres recompilar la aplicación.

Esto es porque si lo que deseas es que algunas opciones estén disponibles para el usuario puedes solo cardar el estado 'Visible' del MenuItem y de esta manera puedes recorrer las opciones del menú y poner visible solo la que quieres.

Esto es solo una idea, espero que te sirva.

Por otro lado para resolver el problema que planteas puedes hacer un procedimiento único donde le mandes el numero de la opción de menú que tienes guardada en la tabla y con un Case puedes mandar a abrir esa forma.