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