Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Controlar Menu (https://www.clubdelphi.com/foros/showthread.php?t=4450)

ksi9sito 16-10-2003 01:24:21

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

Alfredo Soler 16-10-2003 03:59:02

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 15:06:33.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi