Компоненты на форме.

← →
Антон Г. (2005-07-05 11:10) [0]

Здравствуйте. Нужно сделть перебор всех компонентов на форме и, если это TCheckBox, то показать сообщение. Пишу

... for i:=0 to Form1.ComponentsCount-1 do If form1.Components[i] is TCheckBox then Showmessage("Hello"); ...

Количество компонентов на форме показывает правильно (они расположены еще и на TPageControl). Проверка не работает. Помогите пожалуйста.

← →
Anatoly Podgoretsky © (2005-07-05 11:12) [1]

В коде ошибок нет.

← →
Антон Г. (2005-07-05 11:17) [2]

Интересно, а почему тогда проверка не срабатывает, т.е. сообщения не показываются. Проверял количество компонентов-правильное.

← →
Drakosha © (2005-07-05 11:19) [3]

дельфы под рукой нет...но попробуй так

form1.Components[i].ClassName="TCheckBox"

← →
Anatoly Podgoretsky © (2005-07-05 11:21) [4]

Антон Г. (05.07.05 11:17) [2]
Очень просто в данном контейнере нет компонент типа TCheckBox или его наследников

> Drakosha © (05.07.05 11:19) [3]
Не поможет.

> Антон Г. (05.07.05 11:10)
Видимо, компоненты созданы в run-time и Owner у них - не форма. Сделайте Owner"ом форму и все будет ОК.

← →
Антон Г. (2005-07-05 11:31) [6]

Только не убивайте... Не на той форме искал. Так тоже работает:
form1.Components[i].ClassName="TCheckBox"
Еще раз дико извиняюсь. Просто вчера ночью около получаса сидел ни как не мог понять, почему не работает. Сегодня утром решил спросить.

Компоненты на форме. Найти похожие ветки