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

[Avron]

Здравствуйте. Как можно заполучить все формы моего приложения. По идее, они должны храниться в каком-то массиве. Я хочу, допустим все формы своего приложения сделать синим цветом (программно). Для этого мне нужно сделать такой цикл.
for i := 1 to FormsCount Do
Form[i].Color:=clBlue;

Можно ли это сделать и что писать вместо FormsCount и Form[i]?

Заранее благодарен.

[UnD)eaD)Snake]

Ты незнаешь сколько у тебя форм в программе?

[Stilet]

[I]var i:integer;
begin
//********* FOR ******************

for i:=0 to Screen.FormCount-1 do
begin
caption:=caption+' '+Screen.Forms.Caption;
end;
//******* END FOR ****************{}

[Alex21]

2 Stilet: поправка:

Screen.Forms[i].Caption

[Ring0Sn]

Здравствуйте. Как можно заполучить все формы моего приложения. По идее, они должны храниться в каком-то массиве. Я хочу, допустим все формы своего приложения сделать синим цветом (программно). Для этого мне нужно сделать такой цикл.
for i := 1 to FormsCount Do
Form[i].Color:=clBlue;

Можно ли это сделать и что писать вместо FormsCount и Form[i]?

Заранее благодарен.

Можно , пишем так:

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

[Stilet]

Alex21, верно, чето упустил пока с головы постил )