Ver Mensaje Individual
  #2  
Antiguo 14-02-2014
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.286
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Algo debes estar haciendo mal.
A mi esto me funciona perfectamente:

Código Delphi [-]
  for i := 0 to ActionManager1.ActionCount - 1 do begin
    TAction(ActionManager1.Actions[i]).Enabled := False;
  end;

Las deshabilita todas.

Ańado: Si quieres realizar la comprobación e incluir algunas Standard Actions, haz el CAST como TCustomAction.

Código Delphi [-]
  for i := 0 to ActionManager1.ActionCount - 1 do begin
    if (ActionManager1.Actions[i] is TCustomAction) then begin
      TCustomAction(ActionManager1.Actions[i]).Enabled := False;
    end;
  end;
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.

Última edición por Neftali [Germán.Estévez] fecha: 14-02-2014 a las 16:54:26.
Responder Con Cita