Hola Kenobi.
Hay que trabajar un poco para acceder a las propiedades de
TAction, un ejemplo:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := 0 to ActionList1.ActionCount - 1 do
TAction(ActionList1.Actions[i]).Tag := i;
end;
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;
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