Форум: "Начинающим";
Текущий архив: 2008.11.02;
Скачать: [xml.tar.bz2];

Вниз

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

← →
zdm ©   (2008-09-24 10:37) [0]

Добрый день. Нужно найти все 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 не получается
А может я совсем торможу, помогите растормазиться

---

← →
www   (2008-09-24 10:40) [1]

FindControl

---

← →
Vlad Oshin ©   (2008-09-24 10:42) [2]

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) [3]

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

---

← →
zdm ©   (2008-09-24 10:44) [4]

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

---

← →
Vlad Oshin ©   (2008-09-24 10:45) [5]

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

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

---

← →
zdm ©   (2008-09-24 10:48) [6]

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

---

← →
Anatoly Podgoretsky ©   (2008-09-24 10:52) [7]

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

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

---

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

Форум: "Начинающим";
Текущий архив: 2008.11.02;
Скачать: [xml.tar.bz2];

Наверх

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