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
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Última edición por Caro fecha: 02-03-2008 a las 19:06:34.
|