VPF::Список форм приложения - Форум программистов

killerbean

Дата 12.7.2006, 15:01 (ссылка)

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

Загрузка ...

Шустрый

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

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

Как получить список форм приложения и можно ли к ним обращаться как то типа Form1.Components[i]

Romikgy

Дата 12.7.2006, 15:09 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Application.Components

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Snowy

Дата 12.7.2006, 15:10 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Код


var i: Integer;
begin
  for i := 0 to Screen.FormCount - 1 do
    ShowMessage(Screen.Forms[i].Caption);
end;

volvo877

Дата 12.7.2006, 15:11 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Вот этот код выведет все заголовки форм приложения в Memo:

Код

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

Alexeis

Дата 12.7.2006, 15:13 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Попробуйте код
и убедитесь что можно!

Код


procedure TForm1.btn1Click(Sender: TObject);
var
  i : Integer;
begin
  for i := 0 to ComponentCount - 1
  do
    if Application.Components[i] is TForm
    then
      ShowMessage('найдена ' +
      (Application.Components[i] as TForm).Name);
end;

Добавлено @ 15:14
О елки, опаздал smile

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

killerbean

Дата 12.7.2006, 15:31 (ссылка)

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

Загрузка ...

Шустрый

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

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

спасибо всем за столь быстрый ответ.
Избрал метод Snowy, так как здесь требуеться меньше проходов цикла для работы со всеми формами.

Bose

Дата 12.7.2006, 16:19 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

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

Application.Components[i] не поможет если формы создавались как
Form:=TForm.create(nil);
или Form:=TForm.create(Application.MainForm);

Screen.Forms[i] в этом случае предпочтительнее.

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

Лучшее о Delphi за 2013 год. Подборка ссылок.

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