Как программно перебрать в цикле все формы в приложении?

[chandrasecar]

В проекте существует много форм имеющих следующие имена: Form1, Form2, ... , FormN. Как перебрать все эти формы в цикле с целью установить всем одинаковые свойства? Предполагаю, что перебирать нужно по ее названию - String, а не по имени типа TForm.
Заранее благодарен.

[Stilet]

Что хелп уже отменили?

for  I := 0 to Screen.FormCount-1 do
  begin
   Caption := Screen.Forms[I].Name;
  end;

[chandrasecar]

Такой код будет перебирать все формы на экране. А нужно перебирать лишь некоторые формы в проекте (они могут быть не видны) и к тому же по имени.
Я это представляю где-то так:

var FormName: String;
begin
for i:=1 to 5 do FormName:='DForm'+IntToStr(i);
{и вот по этому имени формы ее нужно найти и, например, изменить какие-то свойства}
end;

Возможно ли такое сделать?

[Манжосов Денис :)]

Можно самый простой вариант: case.

case FormName of
'DForm1': SetFormParam(DForm1);
'DForm2': SetFormParam(DForm2);
// И так далее
end;

[Stilet]

А нужно перебирать лишь некоторые формы в проекте

Ну и что за проблема поставить условие на отсев форм?:

for  I := 0 to Screen.FormCount-1 do
  begin
   if pos('DForm',Screen.Forms[i].Name)<>0 then
    // Нужная форма
  end;

[Баламут]

Так все-таки интереснее

var
  i: integer;
begin
  for i := 0 to Application.ComponentCount - 1 do
  begin
    if (Application.Components[i] is TForm)
    then Memo1.Lines.Add((Application.Components[i] as TForm).Name);
  end;
end;

Или еще вариант

var
 c: TComponent;
begin
c := Application.FindComponent('Form10');
if c <> nil then ShowMessage(c.name);
end;

Понятно, что формирование имени искомого компонента можно сделать динамическим.

[cowboy]

А как мне теперь обратиться к стринг гридам на этих формах? Он уже создан

Пробую вот так

for i := 0 to Application.ComponentCount - 1 do
  begin
    if (Application.Components[i] is Tstringgrid)
    then begin Memo1.Lines.Add((Application.Components[i] as Tstringgrid).cells[0,0]);
    end;

  end;

Но не выходит

[postal2]

дык двойным перебором - сначала формы, потом компоненты на форме

((application.Components[i] as tform).Components[j] as tstringgrid).cells[0,0];

Ну намудрили я смотрю......

а если вы выполните вот такой кодик

var i:integer;
begin
for i := 0 to application.ComponentCount-1 do
  if (application.Components[i] is tstringgrid) then
    memo1.Lines.Add((application.Components[i] as tstringgrid).Cells[0,0]) else
    memo1.Lines.Add(application.Components[i].Name);
end;

то увидите, что application.componentcount - это кол-во форм, а не компонентов по формам

[cowboy]

Всем спасибо..Код если кому интересно следующий

var
i,j:integer;
begin

for i := 0 to application.ComponentCount-1 do
  if (application.Components[i] is tform) then
  for j:=0 to  (application.Components[i] as tform).ComponentCount-1 do
  if  (application.Components[i].Components[j] is tstringgrid) then
    memo1.Lines.Add(((application.Components[i] as tform).Components[j] as tstringgrid).cells[1,2]);


end;

[postal2]

application.Components[i] всегда tform. По-моему. Но в принципе проверка не помешает.

(application.Components[i].Components[j] is tstringgrid) then

стринггридов на форме может быть много.
Ещё можно после того, как найден нужный компонент не гнать цикл дальше, а сделать break. Но это уже придирки, код рабочий