6 respuestas en este tema

[egostar]

Hola

Estoy iniciando un desarrollo y entre otras cosas necesito deshabilitar una acción del TActionManager desde su propiedad Enabled.

¿Alguien sabe como puedo hacer eso en tiempo de ejecución?

Salud OS

Les muestro una imagen de lo que necesito para ser más claro.

[escafandra]

Pues basta con poner:

delphi

usuarios.enabled:= false;

Saludos.

[egostar]

Gracias amigo, pero creo que omití algo importante, estoy haciendo esto en una función dependiendo del tag que tiene cada accion, ya había pensado en esa posibilidad pero no logro obtener el nombre de la accion, este es parte del código:

delphi

var
  i: integer;
  Acciones: TActionClientItem;
begin
  for i := 0 to ActionManager1.ActionCount - 1 do begin
      if ActionManager1.Actions[i].Tag = Privilegios[i] then
         ShowMessage(inttostr(ActionManager1.Actions[i].tag));
  end;
end;

Salud OS

[egostar]

Hola

Pues encontré una forma diferente de hacer las cosas, no estoy deshabilitando las acciones, lo que hago es hacerlas invisibles. De cualquier forma seguiré investigando hasta encontrar lo que había imaginado inicialmente

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  Privilegios[1] := 0; //Para prueba inicialice a cero este item.
  for i := 0 to ActionManager1.ActionCount-1 do begin
      if ActionManager1.ActionBars[0].Items[i].Tag = Privilegios[i] then begin
         ActionManager1.ActionBars[0].Items[i].Visible := true;
      end
      else begin
             ActionManager1.ActionBars[0].Items[i].Visible := false;
      end;
  end;
end;
 
procedure TForm1.FormShow(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to ActionManager1.ActionCount-1 do begin
      if ActionManager1.ActionBars[0].Items[i].Tag = Privilegios[i] then begin
         ActionManager1.ActionBars[0].Items[i].Visible := true;
      end
      else begin
             ActionManager1.ActionBars[0].Items[i].Visible := false;
      end;
  end;
end;

Salud OS

[egostar]

Hola

Tuve un problema de indices al colocar las acciones por categorías y finalmente el código quedó de la siguiente forma.

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  Privilegios := [];
  Include(Privilegios,101);
  Include(Privilegios,102);
  for i := 0 to ActionManager1.ActionCount-1 do begin
      if ActionManager1.Actions[i].Tag in Privilegios then begin
        (ActionManager1.Actions[i] as TAction).enabled := true;
      end
      else begin
        (ActionManager1.Actions[i] as TAction).enabled := false;
     end;
  end;
end;
 
procedure TForm1.FormShow(Sender: TObject);
var
  i: integer;
begin
  Privilegios := [];
  Include(Privilegios,100);
  Include(Privilegios,101);
  Include(Privilegios,102);
  for i := 0 to ActionManager1.ActionCount-1 do begin
      if ActionManager1.Actions[i].Tag in Privilegios then begin
        (ActionManager1.Actions[i] as TAction).enabled := true;
      end
      else begin
        (ActionManager1.Actions[i] as TAction).enabled := false;
     end;
  end;
end;

Salud OS

[paoti]

Hola egostar.


pporque no usas el evento Update del Taction.

citando a la ayuda:

Occurs when the application is idle or when the action list updates.
Write an OnUpdate event handler to execute centralized code while an application is idle. For example, actions may want to update enabling and disabling, or checking and unchecking of client targets.

y ahi pondrias:

delphi

(Sender as TAction).enabled  := HacerAlgoConElTag(
(Sender as TAction).tag);

así, este evento controla el comportamiento de su acción, en el tiempo idle de la app.


espero te sirva.

[egostar]

Ah vaya, intentaré usar este concepto y te comento que sucedió

Salud OS