Necesito Deshabilitar acciones en TActionManager

[Neftali [Germán.Estévez]]

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;

[Jere_84]

Hola Neftali!, si funciona muchas gracias... no se porque estaba haciendo la prueba con acciones estándar y estas no se bloqueaban.

Una pregunta ¿Consideras que trabajando con la propiedad Enabled y la propiedad Tag puede ser útil para el bloqueo a usuarios?

Estuve viendo que los TActionClients tienen una propiedad llamada "Accesible" pero no hay documentación alguna en la ayuda de Delphi XE2, ni tampoco en la web, ¿tenes idea si se utiliza para accesos y bloqueos a usuarios?

Saludos cordiales.

[Neftali [Germán.Estévez]]

Las pocas veces que he usado algo similar lo he hecho con las propiedades Enabled y Visible.
Yo tampoco he usado esta propiedad.

Habrá que investigarla... ;-)