Как получить список обьетов принадлежащих известному обьекту?

← →
denisWW (2004-01-25 10:47) [0]

Привет всем!
На панели расположена кнопка и несколько обьектов - например Label
при нажатии на кнопку я через в parent получаю указатель на панель на которой находится кнопка

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
With Sender as TSpeedButton, Parent as TPanel Do
Caption:=IntToStr(StrToInt(Caption)+1);
end;

увеличиваю название основной панели на 1

а как получить доступ в этом обработчике к обьектам которые лежат на панели?к label? и получить весь список обьектов находящихся на этой панели?

← →
Юрий Зотов (2004-01-25 10:55) [1]

См. Controls и ControlCount. Для панели это и есть список расположенных на ней элементов. Его можно пройти в цикле.

← →
denisWW (2004-01-25 11:03) [2]

гууд
поиск делать по имени лучше или ....

← →
denisww (2004-01-25 11:11) [3]

а если у меня в списке Controls есть только один обьект типа Label? как его можно индетифицировать?

← →
Юрий Зотов (2004-01-25 11:11) [4]

> denisWW © (25.01.04 11:03) [2]

А что, справку уже посмотрели? Там ведь и пример есть...

← →
denisww (2004-01-25 11:19) [5]

смотрю
как сказать в дельфях
For I:=0 to Pred(ControlCount) do if Controls[i]=TLabel Then

← →
denisww (2004-01-25 11:27) [6]

спасибо
вроде разобрался
For I:=0 to Pred(ControlCount) do if Controls[i].ClassType=Tlabel Then

← →
mike-d (2004-01-25 11:28) [7]

> if Controls[i]=TLabel Then не прокатит...
if Controls[i] is TLabel Then

← →
Юрий Федоров (2004-01-25 11:29) [8]

>>denisww © (25.01.04 11:27) [6]
Лучше
For I:=0 to Pred(ControlCount) do if (Controls[i].is Tlabel) Then

на случай, если у тебя там окажутся потомки Tlabel

Как получить список обьетов принадлежащих известному обьекту? Найти похожие ветки