TActionList enable/disable

[Uwe Raabe]

Zitat von ThomasWB:

Evtl. werde ich mir eine Komponente mit einer Enable-Property bauen, die dann dahinter diesen Code hat.

Eventuell tut es auch ein class helper . Das erspart zumindest die Registrierung (und Verwendung) einer speziellen Komponente.

Delphi-Quellcode:

type
  TActionListHelper = class helper for TActionList
  private
    procedure SetEnabled(Value: Boolean);
  public
    property Enabled: Boolean write SetEnabled;
  end;

procedure TActionListHelper.SetEnabled(Value: Boolean);
begin
  for var action in Self do
    action.Enabled := Value;
end;

Mit dem Getter wird es allerdings etwas schwierig...