Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.11.02;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.012 c
2-1222088665
Фоофа
2008-09-22 17:04
2008.11.02
Определение включенности интернета


11-1193577066
АртемКо
2007-10-28 16:11
2008.11.02
Проблема с array of pstrlist


2-1222239809
AndreyBg
2008-09-24 11:03
2008.11.02
Перебор записей в датасете.


3-1208416193
Раиса
2008-04-17 11:09
2008.11.02
Выбрать записи ближайшие к определенному интервалу


1-1201163795
mix
2008-01-24 11:36
2008.11.02
Изменение события OnClick у TButton