Delphi/C++Builder Tagを使って、Enabled プロパティをまとめて変更

Delphi/C++Builder Tagを使って、Enabled プロパティをまとめて変更
な、関数

同じTagプロパティの値のコンポーネントだけの Enabled をまとめて変更

procedure SetEnabledFromTag(OwnerComponent: TComponent; TagNum: Integer; EnabledValue: Boolean);
var I: Integer;
begin
    with OwnerComponent do begin
        for I := ComponentCount - 1 downto 0 do begin
            if (Components[I].Tag = TagNum) and (Components[I] is TControl) then begin
                (Components[I] as TControl).Enabled := EnabledValue;
            end;
        end;
    end;
end;

// :
SetEnabledFromTag(Self, 10, False);