Скачать: CL | DM;

Как программно (в 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;

---

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

или так (см.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"е ничего не нашел.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c