Как получить доступ к проверенному свойству кнопки ленты Delphi 2009 во время выполнения?

Question

Я хочу сбросить свойство «checked» всех объектов TAction ленты на false при нажатии на любую кнопку ленты, а затем установить только значение true на нажатой кнопке. Но я еще не нашел способ получить доступ ко всем «проверенным» свойствам действий ActionManager. Мне кажется, мне нужно прокрутить список действий actionmanager ... однако, я еще не нашел правильного пути. Я был бы очень рад, если бы кто-нибудь мог дать мне некоторый намек на это.

Спасибо!

Answer 1

TActionManager спускается с TCustomActionList, так что что бы вы ни делали с последним, вы можете сделать с первым. Он имеет два свойства, которые вам нужно использовать: Actions, который является свойством массива, который дает вам доступ ко всем действиям списка, и ActionCount, в котором указано, сколько их есть. Используйте их, чтобы написать обычный цикл, как это:

var 
    i: Integer; 
    Contained: TContainedAction; 
    Action: TCustomAction; 
begin 
    for i := 0 to Pred(ActionList.ActionCount) do begin 
    Contained := ActionList[i]; // shorthand for ActionList.Actions[i] 
    if not (Contained is TCustomAction) then 
     continue; // Doesn't have Checked property 

    Action := TCustomAction(Contained); 
    Action.Checked := False; 
    end; 
end; 

списков действий могут содержать много видов действий, и не все они имеют Checked свойства. Это свойство введено в TCustomAction, поэтому приведенный выше код также отфильтровывает то, что не происходит из этого класса.