Ver Mensaje Individual
  #1  
Antiguo 02-03-2008
Jorge Taveras Jorge Taveras is offline
Miembro
 
Registrado: abr 2004
Ubicación: Santo Domingo
Posts: 68
Reputación: 20
Jorge Taveras Va por buen camino
MainMenu, como cambiar una propiedad a travez de sus items

Buenas tengan amigos foristas.

Espero esten todos bien y que me puedan dar una manita sobre esto.
ya he buscado en google y en el foro y algunos libros de delphi que poseo
(la bilia de delphi 5,6). Este es un ejemplo para no alargar las cosas

Tengo una tabla que contiene 5 campo

Código:
Consulta1
Consulta2
consulta3
consulta4
consulta5
todos son integer default 0

Tengo un programa que posee un mainmenu cuyos items los he nombrado igual que mis campos en la tabla

Código:
mainmenu.consulta1
mainmenu.consulta2
mainmenu.consulta3
mainmenu.consulta4
mainmenu.consulta5
lo que intento hacer es leer todos los campos
en la tabla y si el valor es 0 habilitar esta
opcion del menu, y si es 1 desabilitarla.

Código Delphi [-]
  accesos.Open;
  for x:=0 to Accesos.FieldCount - 1 do
  Begin
       str1 := Accesos.Fields[x].FieldName;
       if  Accesos.fieldbyname(str1).value = 0 then
           with MenuStandard.Items do
                begin
                name := str1;
                visible := true;
           end
       else
           with MenuStandard.Items do
                begin
                name := str1;
                visible := false;
           end;
end;
  Accesos.close;

este proceso me aplica bien el if, osea realmente logro examinar el valor del nombre del campo. Lo que no logro es asignar el valor true o false a los items del mainmenu Espero por favor su cordial ayuda

Última edición por dec fecha: 02-03-2008 a las 19:33:50.
Responder Con Cita