Как Закрыть Все Формы В Делфи

Для закрытия всех форм в Delphi нужно перебрать все формы, кроме основной, и закрыть их с помощью метода Close. Это можно сделать с помощью следующего кода:

var  i: Integer;begin  for i := 0 to Application.ComponentCount - 1 do  begin    if (Application.Components[i] is TForm) and (Application.Components[i] <> MainForm) then    begin      TForm(Application.Components[i]).Close;    end;  end;end;

Где MainForm - это переменная, которая указывает на основную форму приложения. Этот код перебирает все компоненты приложения и закрывает все формы, кроме MainForm, используя метод Close.Если необходимо закрыть форму по щелчку на кнопке, то можно написать следующий код:

procedure TMyForm.CloseButtonClick(Sender: TObject);begin  CloseAllForms;end;procedure TMyForm.CloseAllForms;var  i: Integer;begin  for i := 0 to Screen.FormCount - 1 do  begin    if Screen.Forms[i] <> Self then      Screen.Forms[i].Close;  end;end;

Этот код закрывает все формы, кроме текущей, при нажатии на кнопку события CloseButtonClick. Код использует метод Screen.FormCount для перебора всех открытых форм и метод Close для закрытия каждой формы.

урок на делфи 27. три способа закрыть программу.

График линейной функции на Делфи - - Программирование на Delphi

Урок на делфи 80 масштабирование рисунка

Создание форм. Переход между формами - Программирование на Delphi

Урок 1 Создание формы, запуск второй формы (DELPHI FastReport) - Виктор Восонов

Сворачивать форму в панель задач при закрытии в Delphi 7

Форма в delphi. Параметры формы

КАК ЗАКРЫТЬ ВСЕ ФОРМЫ В ДЕЛФИ