Ver Mensaje Individual
  #3  
Antiguo 05-09-2018
RRenault RRenault is offline
Miembro
 
Registrado: may 2003
Posts: 10
Reputación: 0
RRenault Va por buen camino
Saludos

Código Delphi [-]
var
Contador, Indice : Integer;
begin
   with Form1 Do begin
          Contador := Form1.ComponentCount;
          for Indice := 0 to Contador - 1 do begin

          if (Form1.Components[Indice] is TMenuItem) then begin
              TMenuItem( FindComponent ( Form1.Components[Indice].Name) ).Enabled := False;
              TMenuItem( FindComponent ( Form1.Components[Indice].Name) ).Visible := False;
          end;

     end;
  end;
Responder Con Cita