TActionList enable/disable

[Uwe Raabe]

Eventuell geht hier auch ActionList.State := asSuspended . Dabei bleibt zwar die Enabled-Eigenschaft der Actions unverändert, aber es wird kein Execute ausgeführt.

Siehe: System.Actions.TActionListState

[ThomasWB]

Vielen Dank für die Antworten. Leider ist keine von beiden meine erhoffte Lösung. Ich dachte, dass ich mit einem Schlag alle Aktionen einer ActionList deaktiviere.

Die Lösung von Uwe Raabe ist hier leider auch nur die halbe Lösung, da der Anwender in diesem Falle einen aktiven Button hat, auf den Button drückt (er ist ja nicht deaktiviert) und sich wundert, warum nichts geschieht.

[Uwe Raabe]

Ich weiß nicht, ob das bei dir noch unter die Kategorie mit einem Schlag fällt:

Delphi-Quellcode:

  
  for var action in ActionList1 do
    action.Enabled := False;

[ThomasWB]

for var action in ActionList1 do
action.Enabled := False;

Wahrscheinlich gibt es keine andere Lösung. Daher danke für diesen "knackigen", kurzen Code.
Evtl. werde ich mir eine Komponente mit einer Enable-Property bauen, die dann dahinter diesen Code hat.

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