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

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

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

1. procedure SetEnabledFromTag(OwnerComponent: TComponent; TagNum: Integer; EnabledValue: Boolean);  
2. var I: Integer;  
3. begin  
4.     with OwnerComponent do begin  
5.         for I := ComponentCount - 1 downto 0 do begin  
6.             if (Components[I].Tag = TagNum) and (Components[I] is TControl) then begin  
7.                 (Components[I] as TControl).Enabled := EnabledValue;  
8.             end;  
9.         end;  
10.     end;  
11. end;  
12.   
13. // :  
14. SetEnabledFromTag(Self, 10, False);  

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);