| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Нахождение компонент

zdm ©   (2008-09-24 10:37:00) 

Добрый день. Нужно найти все Tedit на форме и проверить их состояние. Edit-ы находятся в GroupBox-ах

если делаю так:
with FormSearch do
begin
   for I := 0 to ControlCount-1 do
   begin
      ShowMessage(Controls[i].Name);
   end;
end;
Выдает только имена GroupBox-оы, а вот как проверить у каждого GroupBox свои входящие в него компоненты?

вроде логика подсказывает сделать
if Controls[i].ClassNameIs('TGroupBox') thenи вторым циклом опрасить, но как я не соображу, точнее чтото вроде
with Controls[i].name doне получается
А может я совсем торможу, помогите растормазиться

---

Anatoly Podgoretsky   (2008-09-24 10:52:00) [1]

> Всем огромное спасибо.

За что? Решения то не было.
Тут рекурсия нужна.

---

zdm   (2008-09-24 10:48:00) [2]

я имел ввиду под состянием Enable/Disble например.. ну в общем это не важно

---

Vlad Oshin   (2008-09-24 10:45:00) [3]

> проверить их состояние.

Состояние - нет такого св-ва у tEdit..
:)

---

zdm   (2008-09-24 10:44:00) [4]

Всем огромное спасибо.

---

Vlad Oshin   (2008-09-24 10:42:00) [5]

var
i:integer;
begin
for I := 0 to ComponentCount - 1 do
 if (Components[i] is tEdit) then ShowMessage(tEdit(Components[i]).Name);

---

Поросенок Винни-Пух   (2008-09-24 10:42:00) [6]

procedure EnumEdits(AContainer : TGroupBox);
begin
......
end;

---

www   (2008-09-24 10:40:00) [7]

FindControl

---

Наверх