Validar usuario contra TAG de componente

[amadis]

Viéndolo de esa forma, necesitaría que al dispararse cualquier ON EXECUTE de un ActionManager se haga la comprobación, así com otambien cualquier ON CLICK de Tbuttons.

¿Existe forma generica de chequear todos los OnExecute mediante un solo procedimiento comprobador? O debo llamar al procedimiento comprobador en cada uno de los eventos a chequear?

Gracias

[ozsWizzard]

Hombre, el propio TActionList, tiene el evento Onexecute que se lanza en el mismo momento que se lanza cualquier acción interna, si todo lo controlas con acciones (incluso los botones), ahí podrías validar lo que necesites.

Saludos.

[TOPX]

Veo dos opciones:

1. Utilizar el mismo evento OnExecute para todos los TAction, en lugar de uno para cada uno, así como dicen en:
   • Asignar una funcion al evento on click | ClubDelphi
2. Si se tienen los recursos, usar eventos multicast, como en:
   • Multicast Events using Generics | EDN

-

[amadis]

Efectivamente utilizaré entonces el OnExecute del TAction.

[ecfisa]

Hola amadis.

Otro enfoque diferente con consecuencia similar, es desactivar todos los componentes del TForm cuya propiedad Tag tenga un valor mayor al nivel de acceso del usuario:

Código Delphi [-]
uses TypInfo;

procedure SetLevelAccess(aForm: TForm; const UserAccessLevel: Integer);
var
  PInfo  : PPropInfo;
  i, vTag: Integer;
begin
  with aForm do
  begin
    for i := 0 to ComponentCount - 1 do
    begin
      if (GetPropInfo(Components[i].ClassInfo, 'Enabled') <> nil) and
         (GetPropInfo(Components[i].ClassInfo, 'Tag') <> nil)  then
      begin
        vTag := GetOrdProp(Components[i], 'Tag');
        if vTag < UserAccessLevel then
          SetOrdProp(Components[i], 'Enabled', Integer(False));
      end;
    end;
  end;
end;

Ejemplo de llamada:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLevelAccess(Form1, qyUsers.FieldByName('UserLevel').AsInteger); 
end;

Saludos.

[amadis]

Esta idea me gustó más era mas o menos la idea que buscaba, programar una simple linea por formulario para autorizar está bueno.

Por la tarde lo pruebo y les cuento.

[amadis]

El codigo funciona demasiado bien. Desactiva todo todo.
Por mas que el nivel de usuario sea mayor que el tag igual lo desactiva todo.

[ecfisa]

Empezado por amadis

El codigo funciona demasiado bien. Desactiva todo todo.
Por mas que el nivel de usuario sea mayor que el tag igual lo desactiva todo.

Debe ser por que consideré dar el mayor acceso en forma decreciente, si lo haces corresponder de forma directa (mayor valor = mayor acceso), basta con cambiar el condicional '<' por '>' en la función SetLevelAccess:

Código Delphi [-]
...
   if GetOrdProp(Components[i], 'Tag') > UserAccessLevel then
          SetOrdProp(Components[i], 'Enabled', Integer(False))
...

Te adjunto un demo que incluye varios edits, panel con checkbox, mainmenu, popupmenu, etc, para que puedas evaluarlo con mas comodidad.

Nota: Agregue una línea a la función SetLevelAccess para restaurar componentes desactivados ya que el acceso se fija dinámicamente mediante un SpinEdit.

Saludos.