MainMenu, como cambiar una propiedad a travez de sus items

[*Caro*]

Hola Jorge Taveras, tambien puedes usar FindComponent para encontrar el item del MainMenu.

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
        TMenuItem(FindComponent(str1)).Visible := True
       else
        TMenuItem(FindComponent(str1)).Visible := False;
   end;
  Accesos.close;

Saluditos