Delphi Найти Форму По Имени

Для поиска формы по имени в Delphi можно использовать функцию `FindComponent()` из класса `TComponent`, которая рекурсивно ищет компонент с заданным именем в иерархии родительских компонентов. Например:

var  Form: TForm;begin  Form := TForm(FindComponent('Form1'));  if Form <> nil then    ShowMessage('Form1 найдена')  else    ShowMessage('Form1 не найдена');end;

В данном примере мы ищем форму с именем 'Form1'. Если она найдена, то выводится сообщение 'Form1 найдена', иначе выводится сообщение 'Form1 не найдена'.Также можно использовать цикл для поиска формы с заданным именем:

var  I: Integer;  Form: TForm;begin  for I := 0 to Screen.FormCount - 1 do  begin    Form := Screen.Forms[I];    if Form.Name = 'Form1' then    begin      ShowMessage('Form1 найдена');      Break;    end;  end;end;

В данном примере мы перебираем все формы, открытые на момент выполнения программы, с помощью свойства `Screen.FormCount`. Если форма с именем 'Form1' найдена, то выводится сообщение 'Form1 найдена' и цикл завершается с помощью оператора `Break()`.