操作窗体上所有控件,该怎么处理

操作窗体上所有控件
如何让窗体上Tag=1控件的控件Enabled := false
  Tag=2控件的控件ReadOnly := true

[解决办法]

Delphi(Pascal) code

procedure TForm2.Button1Click(Sender: TObject);var  I: Integer;begin  for I := 0 to self.ComponentCount - 1 do    begin      case self.Components[I].Tag of        1:          begin            if self.Components[I] is TControl then              TControl(self.Components[I]).Enabled:=false;          end;        2:          begin            if self.Components[I] is TControl then              TControl(self.Components[I]).Enabled:=True;          end;      end;    end;end;