Обратиться к классу (Delphi)

[Карась]

То же верно, но грузить 24 бокса.... а если в программе их больше?...

Один раз напиать можно и 24 и 100... и не такое бывало когда я ничинал

А чтоб в программе не мазолило глаза от такого "столбика", то можно вынести это в модуль, оформить как процедуру и т.д. И вызывать при загрузке.

ЗЫ: если правда нет других способов как это сделать....

[Air]

Карась
Наверно, есть надо только обратиться к определённой группе - написано в прошлом сообщении.(10)

[Stilet]

Air

Читай мой пример внимательно:

//********* FOR ******************   
for i :=0  to GroupBox1.ComponentCount-1  do   
begin   
 if GroupBox1.Components[i] is Tlabel then   
  tlabel(GroupBox1Components[i]).Caption:='qdasd';   
end;   
//******* END FOR ****************{}

[Air]

Дык, странно "GroupBox1.ComponentCount" = 0 ?.... а их у меня 2.
Тьфу, label-ов = 3 на каждом

Сейчас пытаюсь последовательно выйти на Лабэл...

Не могу понять почему.

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
i:=0;
j:=0;
for i:=0 to form1.ComponentCount-1 do
 for j:=0 to TGroupBox(form1.Components[i]).ComponentCount-1 do
  begin
    if TGroupBox(form1.Components[j]).Components[j] is Tlabel then
     Tlabel(TGroupBox(form1.Components[j])).Caption:='asd'+inttostr(i);
   end;
end;

TGroupBox(form1.Components[i]).ComponentCount-1 = 0 почему...?

[Stilet]

А ты пробуй не компоненты а контролы искать:

//********* FOR ******************
for i :=0  to GroupBox1.ControlCount-1 do
begin
 if GroupBox1.Controls[i] is TLabel then
  TLabel(GroupBox1.Controls[i]).Caption:='adfasd';
end;
//******* END FOR ****************{}

и вообще ты в первом цикле проверку на тип провтыкал, а она весьма нужна

[Air]

Stilet Верно! Работает, Вы гений! Спасибо Вам. И Всем откликнувшимся.

А Controls чем отличается?

[GN_]

Сообщение от puporev

TCheckBox - это класс, а CheckBox1:TCheckBox; - это компонент этого класса.

Думаю правильнее сказать так:
CheckBox1 является экземпляром класса TCheckBox (или объектом).