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

← →
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..
:)

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

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

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

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