[erledigt] Category und Actionlist Action

[MacWomble]

Hallo,

gibt es einen geplanten Weg, alle actions einer category gemeinsam anzuwählen (z.B. enable/disable) oder wozu ist die category da?

[MacWomble]

Ok, ich habe es jetzt so gelöst:

Code: Alles auswählen

var
  I: integer;
  acAction: TAction;
begin
  for I := 0 to Actionlist.ActionCount - 1 do
  begin
    if Actionlist.Actions[I].Category = 'MyCategory' then
    begin
      acAction := TAction(FindComponent(Actionlist.Actions[I].Name));
      acAction.Enabled := False;
    end;
  end;
end;   

Ist das der zu gehende Weg oder geht das einfacher?

[theo]

Oder so:

Code: Alles auswählen

var  Actn:TAction;
begin
 for TContainedAction(Actn) in ActionList do if Actn.Category='MyCategory' then Actn.Enabled:=false;
end;      

[MacWomble]

Danke vielmals!

Ich hatte eben versucht, meine Routine in eine Funktion auszulagern, was an FindComponent scheiterte.
Deine Lösung hingegen funktioniert einwandfrei.