Ver Mensaje Individual
  #2  
Antiguo 02-03-2008
Avatar de ixMike
ixMike ixMike is offline
Miembro
 
Registrado: feb 2004
Posts: 1.151
Reputación: 22
ixMike Va por buen camino
Hola.

Lo primero, utiliza las etiquetas DELPHI para poner código, se hará más fácil de leer. También ayuda utilizar sangría (o sangrado). Edito: gracias dec

Lo segundo, no te inventes código de forma intuitiva:

Cita:
with MenuStandard.Items do
begin
name := str1;
visible := true;
end
¿Qué es eso? Además, ¿el menú no se llamaba MainMenu?

Bueno, no puedes cambiar el nombre de los componentes en tiempo de ejecución, lo que sí puedes hacer es esto:

Código Delphi [-]
accesos.Open;
for x:=0 to Accesos.FieldCount - 1 do
  Begin
  str1 := Accesos.Fields[x].FieldName;
  MenuStandard.Item[x].Visible:=Boolean(Accesos.fieldbyname(str1).value);
  end;
Accesos.close;

También podrías usar la propiedad Enabled en vez de Visible.

Salu2
Responder Con Cita