如何让一个TTabSheet1页面上的所有组件的visable都设置为false

Question

如何让一个TTabSheet1页面上的所有组件的visable都设置为false，而不用逐个的设置？

Answer 1

写一个方法遍历控件 然后设置其visible属性

Answer 2

只能遍历,为什么这么做,直接设置tab的visible不行吗
或者,用这种方法,在tab上放置一个panel,然后把所有的组件都放在panel上,然后设置panel的visible就行了

Answer 3

procedure TForm1.Button2Click(Sender: TObject);
var
  i : Integer;
begin
  for I := 0 to TabSheet1.ControlCount -1 do begin
    TabSheet1.Controls[i].Visible := false;
  end;
end;