Поиск всех Edit

[Mr_skiner]

я осуществляю поиск Edit'ов на форме таким образом:

for i := 0 to mainform.ComponentCount-1 do
if (mainform.components[ i ] is TEdit) then
(mainForm.Components[ i ] as TEdit).Text := '';


Все работает, А как осуществить то же самое но с вкладкой tabsheet1 компонента Pagecontrol ?

Путем замены Mainform на Tabsheet1 не добился результатов.

[Баламут]

Например так

  for i := 0 to PageControl1.Pages[0].ControlCount - 1 do
  begin
    if PageControl1.Pages[0].Controls[i] is TEdit then
    Memo1.Lines.Add((PageControl1.Pages[0].Controls[i] as TEdit).Text);
  end;

[Mr_skiner]

Это работает на Edit который стоит просто в Табе, а если его поместить допустим на панель или груп бокс- уже не работает... Можно поиск Всех Едитов на конкретной вкладке сделать?

for i := 0 to PageControl1.Pages[0].ControlCount - 1 do
if PageControl1.Pages[0].Controls[i] is TEdit then
begin
(PageControl1.Pages[0].Controls[i] as TEdit).ReadOnly:=enab;
end;

[Mr_skiner]

Подскажите плз что не то =(

[Mr_skiner]

ну тогда проще их по порядку перечислить .. Нет у меня они в панелях и групбоксах изначально стоят.. в варианте если искать по FOrm тогда все задействует а ели по Вкладкам- нет

[Serge_Bliznykov]

у Вас что - гроупбоксы, панели и прочие контейнеры сами по себе появляются? Или Вы их динамически в RunTime создаёте?

Если нет - то перебирайте указав конкретно, где ваши эдиты могут быть:

  for i := 0 to GroupBox1.ControlCount - 1 do
...

  for i := 0 to Panel1.ControlCount - 1 do
...
и т.д.

p.s. если же хочется реально универсальный код (т.е. независимо от вложенности контролов друг в друга), тогда пишите рекурсивную процедуру... Пример могу набросать, если надо..