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

Posted by maloy under Delphi, Архив

chandrasecar

В проекте существует много форм имеющих следующие имена: Form1, Form2, … , FormN. Как перебрать все эти формы в цикле с целью установить всем одинаковые свойства? Предполагаю, что перебирать нужно по ее названию — String, а не по имени типа TForm.
Заранее благодарен.

Баламут

Так все-таки интереснее

var
  i: integer;
begin
  for i := 0 to Application.ComponentCount - 1 do
  begin
    if (Application.Components is TForm)
    then Memo1.Lines.Add((Application.Components as TForm).Name);
  end;
end;

Или еще вариант

var
 c: TComponent;
begin
c := Application.FindComponent('Form10');
if c <> nil then ShowMessage(c.name);
end;

Понятно, что формирование имени искомого компонента можно сделать динамическим.

тема на форуме от 2009 года

Похожие статьи

• Обращение через TComponent
• Массив чекбоксов, как в PHP узнать, какой из чекбоксов выбран?
• Как передать значение из <select> в action формы
• Запретить выход курсора за API форму
• Get запрос обработка ошибки подключения
• Как создать дочернее окно при нажатии на кнопку?
• Пример использования потока в форме
• Найти все edit на форме и присвоить им строку
• Перетаскивание формы в FireMonkey
• Задать свой обработчик событий у формы