DELPHI СПИСОК ОТКРЫТЫХ ФОРМ
Перед тем, как получить список открытых форм в Delphi, необходимо понимать, что такие формы не существуют независимо друг от друга. Они образуют древовидную структуру, где каждая форма имеет родительскую форму кроме основной формы приложения. Чтобы получить список всех открытых форм включая главную форму, мы можем использовать следующий фрагмент кода:
var i: Integer;begin //Перебираем все формы приложения, включая главную форму for i := 0 to Screen.FormCount - 1 do begin //Выводим название каждой формы ShowMessage('Form ' + IntToStr(i) + ': ' + Screen.Forms[i].Caption); end;end;
Таким образом, мы можем перебрать все формы, хранящиеся на экране, и получить названия каждой формы.Если же мы хотим получить список только дочерних форм определенной формы, мы можем использовать свойство MDIChildCount и MDIChildren для этой цели. Например: var i: Integer;begin //Перебираем все дочерние формы главной формы for i := 0 to MainForm.MDIChildCount - 1 do begin //Выводим название каждой формы ShowMessage('Child form ' + IntToStr(i) + ': ' + MainForm.MDIChildren[i].Caption); end;end;
Здесь мы перебираем все дочерние формы главной формы и получаем названия каждой формы. Важно отметить, что получение списка открытых форм является полезной функцией при отладке и тестировании приложения, но в качестве основной логики вашего приложения использовать эту функцию не рекомендуется без необходимости.
Программирование в Delphi Урок 12.1. Многоформенные приложения / Илья Хохлов
AUTOCOM DELPHI 2020 / 2021 Cars Trucks CDP+ DS150e WoW Wurth
Взаимовыгодный союз в открытой экосистеме Delphi-Python
Вебинар \
5 Delphi 7 Меню File
FREEДОМ - Путин сделал ошибку, подорвав Каховскую ГЭС. День 16.06.2023 - 18:00