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...