Как программно (в run-time) получить список всех форм проекта?

← →
Eugene30 (2004-05-11 19:01) [0]

Здравствуйте!
Как программно (в run-time) получить список всех форм проекта?
Т.е. не только открытых в даный момент, а вообще всех имеющихся.

← →
Amoeba © (2004-05-11 19:03) [1]

Если форма не создана, то ничего о ней узнать нельзя.

← →
Eugene30 (2004-05-11 19:07) [2]

Формы созданы (Application.CreateForm)

← →
Amoeba © (2004-05-11 19:09) [3]

TScreen.Forms, TScreen.FormCount + F1

← →
Яичница © (2004-05-11 19:14) [4]

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
Temp: TComponent;
begin
with Application do
for I := ComponentCount - 1 downto 0 do
begin
Temp := Components[I];
if (Temp is TForm) then
begin
Memo1.Lines.Add((Temp as TForm).Name);
end;
end;
end;

или так (см.Amoeba © (11.05.04 19:09) [3]) :

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
for i:=0 to Screen.FormCount-1 do
Memo2.Lines.Add(Screen.Forms[i].Name);
end;

← →
Eugene30 (2004-05-11 23:00) [6]

Amoeba, Яичница,
Спасибо большое!

Меня сбило с толку описание в справке для TScreen.FormCount - "Indicates the number of forms displayed on the screen". Думал, что будет считаться только количество отображаемых (после Form.Show) на экране форм.

А по свойствам Application вообще в help"е ничего не нашел.

Как программно (в run-time) получить список всех форм проекта? Найти похожие ветки