![]() |
Controlar Menu
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 |
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. |
La franja horaria es GMT +2. Ahora son las 04:39:22. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi