Коллекция контролов на форме (или странице, например)

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Ответить
yanis
незнакомец
Сообщения: 6
Зарегистрирован: 14.07.2012 16:47:37

Коллекция контролов на форме (или странице, например)

Сообщение yanis »

Здравствуйте.

Возможно ли в Лазарусе перебрать все контролы внутри текущего, примерно как ниже написано?

Код: Выделить всё

Dim ctl As Control
For Each ctl In Me.Controls
  Debug.Print ctl.Name
Next ctl


Заранее спасибо.
Аватара пользователя
B4rr4cuda
энтузиаст
Сообщения: 693
Зарегистрирован: 28.12.2007 06:48:35

Сообщение B4rr4cuda »

Код: Выделить всё

for i:=0 to control.componentsCount-1 do
         showmessage(control.components[i].name);
yanis
незнакомец
Сообщения: 6
Зарегистрирован: 14.07.2012 16:47:37

Сообщение yanis »

Спасибо за направление, все глаза проглядел, а нужного свойства не видел.
Работающий код

Код: Выделить всё

for i:=0 to ControlCount-1 do
         showmessage(Controls[i].Name);
Ответить