Типы данных стандартного класса

[mauar]

При создании формы и добавлении новых компонентов delphi автоматически создает поля главного класса формы.

type
  TForm1 = class(TForm)
    AdvOfficeRadioButton1 : TAdvOfficeRadioButton;
    AdvOfficeRadioButton2 : TAdvOfficeRadioButton;
    AdvOfficeRadioButton3 : TAdvOfficeRadioButton;
    AdvOfficeRadioButton4 : TAdvOfficeRadioButton;
    AdvOfficeRadioButton5 : TAdvOfficeRadioButton;
    AdvOfficeRadioButton6 : TAdvOfficeRadioButton;
    .. и так 85 штук ...
    AdvOfficeRadioButton85 : TAdvOfficeRadioButton;

У меня на форме расположенно 85 радио кнопок, мне нужно сделать у все этих 85 радиокнопок отключить свойство Visible оно должно быть False , но программным методом, чтобы не расписывать на 100 строк кода типа:
AdvOfficeRadioButton1.Visible := false;
Я хочу сделать подтип этого класса, или описать множества или массив этого Класса с этими кнопками
Для примера, создаю новый тип, или подтип или тип массивов:

1-й вариант (диапазон):

type 
 TMyType =  AdvOfficeRadioButton1 .. AdvOfficeRadioButton85;

2-й вариант (множества):

 TMyType =  set of AdvOfficeRadioButton1 .. AdvOfficeRadioButton85;

3-й вариант (массив):

TMyType =  array [AdvOfficeRadioButton1 .. AdvOfficeRadioButton85] 
                                                                    of :TForm1;

4-й вариант (подтип на основе собственного типа):

TMyType  =  set of TForm1;
   TMyType = (AdvOfficeRadioButton1 .. AdvOfficeRadioButton85);

В общем ни один из этих вариантов, в большом количестве перепробованных мной вариаций так и не заработал. Как мне описать
диапазон этих радиокнопок, либо через тип, либо через массив, либо моет через переменную )) ?

[Showy]

Можно положить их всех на TPanel и менять Visible у неё.
Или так не интересно?

[mauar]

Так не получиться они все в разных местах, в основном это компонент PageControl. Вопрос ещё открыт, кстати вещь интерессная, я с ней весь день ковыряюсь.

[Mikhail Bakurov]

а если обратится по Handl'у к каждой в цикле?

[mauar]

Сообщение от Mikhail Bakurov

а если обратится по Handl'у к каждой в цикле?

Интерессно, через for и как там счетчик задать? А как Вы это себе представляете? Там ещё процесса много занимать начнет.

[Mikhail Bakurov]

через

repeat***until h = 0

h: HWND
Насчет много занимать, не знаю, API функции работают очень быстро

[Kotofff]

Если немного переделать код Sazary, который он приводил здесь на форуме (который я нашел по поиску на этом форуме), то можно попробовать так :

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  t : TComponent;
begin
  for i:=1 to 85 do
    begin
    t := FindComponent('AdvOfficeRadioButton'+IntToStr(i));
    TAdvOfficeRadioButton(t).Visible := false;
    end;
end;

[mauar]

Mikhail Bakurov, Kotofff, evg_m Спасибо, работает!

[evg_m]

for j:=0 to self.componentcount-1 do
  if self.component{j].inherited(Tradiobutton) then
     tradiobutton(self.component{j]).visible:=false;
//будет работать даже если их станет >85

[Showy]

Ну тогда можно и вот так, только это будет действовать на все RadioButton'ы у всех дочерних компонентов:

procedure ShowRadioButtons(Show: Boolean; Parent: TWinControl);
var
  I: Integer;
begin
  for I := 0 to Parent.ControlCount - 1 do
    if Parent.Controls[I] is TRadioButton then
      Parent.Controls[I].Visible := Show
    else
      if Parent.Controls[I] is TWinControl then
        ShowRadioButtons(Show, TWinControl(Parent.Controls[I]));
end;

Использование:

ShowRadioButtons(True, PageControl1);

-Скроет вообще все радио кнопки.