Главная страница
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.018 c
2-1221762635
Muh
2008-09-18 22:30
2008.11.02
Подскажите, пожалуйста как программно в image1 загнать картинку с


15-1221024724
Vlad Oshin
2008-09-10 09:32
2008.11.02
BDS2006, палитра компонент, как упорядочить внутри вкладки по афл


2-1222148162
workbench
2008-09-23 09:36
2008.11.02
ftp, indy (TIdFTP)


2-1222264607
Vitalts
2008-09-24 17:56
2008.11.02
Вставка записи с целочисленным значением


2-1222450602
berrometr
2008-09-26 21:36
2008.11.02
Delphi 2009