Hola darkone2k4, para recorrer puedes hacer lo siguiente:
Código Delphi [-]
for ind :=0 to ComponentCount-1 do
begin
if Components[ind] is TMenuItem then
if TMenuItem(Components[ind]).Tag = Query.FieldByName('Tag').AsInteger then
TMenuItem(Components[ind]).Visible := Query.FieldByName('Estado').AsBoolean; end;
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: 10-03-2010 a las 23:38:55.
|