Скачать: CL | DM;

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

← →
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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.018 c