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

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

← →
Антон Г.   (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 или его наследников

---

← →
Юрий Зотов ©   (2005-07-05 11:27) [5]

> 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"
Еще раз дико извиняюсь. Просто вчера ночью около получаса сидел ни как не мог понять, почему не работает. Сегодня утром решил спросить.

---

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

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



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