Recorrer y desabilitar actions en TactionList

[ecfisa]

Hola Kenobi.

Hay que trabajar un poco para acceder a las propiedades de TAction, un ejemplo:

Código Delphi [-]
// Asignar Tag's a Actions
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ActionList1.ActionCount - 1 do
    TAction(ActionList1.Actions[i]).Tag := i;
end;

// Desactivar Actions con Tag's impares
procedure TForm1.btImparesClick(Sender: TObject);
var
  i : Integer;
begin
  for i := 0 to ActionList1.ActionCount - 1 do
    TAction(ActionList1.Actions[i]).Enabled := Odd(ActionList1.Actions[i].Tag);
end;

// Activar Actions con Tag's impares, desactivar pares
procedure TForm1.btParesClick(Sender: TObject);
var
  i : Integer;
begin
  for i := 0 to ActionList1.ActionCount - 1 do
  begin
    TAction(ActionList1.Actions[i]).Enabled := Odd(ActionList1.Actions[i].Tag);
    TAction(ActionList1.Actions[i]).Enabled := not Odd(ActionList1.Actions[i].Tag);
  end;
end;

Salida:


Saludos