実行時にDelphi 2009リボンボタンのcheckedプロパティにアクセスするにはどうすればよいですか？

Question

リボンボタンをクリックすると、リボンのすべてのTActionオブジェクトの "checked"プロパティをfalseにリセットし、押したボタンだけをtrueに設定します。 しかし、ActionManagerのアクションのすべての「チェックされた」プロパティにアクセスする方法はまだ見つかりませんでした。 アクションマネージャのアクションリストをループする必要があると思いますが、私はまだ正しい方法を見つけられませんでした。 誰かが私にこのことについていくつかヒントを与えることができたらとても嬉しいです。

ありがとうございます！

Answer 1

TActionManagerTCustomActionListに由来します。後者でできることは何でも、前者で行うことができます。それには、使用する必要のある2つのプロパティー、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に導入されているので、上記のコードはそのクラスから降りていないものもフィルタリングします。