VPF::Как получить список форм приложеня в Design-time?

GydruS

Дата 25.8.2011, 17:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 1.10.2010

Репутация: нет
Всего: нет

Здравствуйте, коллеги!

Пишу компонент. Необходимо получить список всех форм приложения в design-time.
Т.е. такой список, который мы имеем в Project->Options->Forms.
Кто-нибудь знает, как это можно сделать?

вариант

Код


for i := 0 to Application.ComponentCount-1 do
  if Application.Components[i] is TForm then {add to list};

не подходит, т.к. в список попадает куча форм IDE, но совсем не те, что в проекте...

Условие типа

Код


if (Application.Components[i] is TForm) and (csDesigning in Application.Components[i].ComponentState) then {add to list};

вообще не выполняется ни разу...

Есть идеи или советы?

Спасибо за помощь!

Это сообщение отредактировал(а) GydruS - 25.8.2011, 17:34

Frees

Дата 25.8.2011, 17:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

Код


Screen.FormCount
Screen.Forms[]

--------------------

Кольцов Виктор Владимирович

GydruS

Дата 26.8.2011, 09:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 1.10.2010

Репутация: нет
Всего: нет

Frees, спасибо за ответ, но, к сожалению, код

Код


for i := 0 to Screen.FormCount-1 do begin
  ...
  AddToList(Screen.Forms[i].Name);
  ...
end;

возвращает такой список:

Код


MessageViewForm
ProjectManagerForm
BorlandEditorCodeExplorer
EditorStatusControlForm

...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »