Delphi Как Проверить Создана Ли Форма

Чтобы проверить, создана ли форма в Delphi, можно использовать свойство FormExists из модуля Forms. Оно возвращает булевое значение, указывающее на то, существует ли форма с указанным именем. Например:

if FormExists('MyFormName') then
begin
  // код, который нужно выполнить, если форма существует
end
else
begin
  // код, который нужно выполнить, если форма не существует
end;

Еще один способ - проверить, отображается ли форма на экране, используя свойство Visible. Если форма видна, значит она существует и была создана. Например:

if MyForm.Visible then
begin
  // код, который нужно выполнить, если форма создана
end
else
begin
  // код, который нужно выполнить, если форма не создана
end;

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

var
  MyForm: TForm;
begin
  MyForm := TForm.Create(nil);
  try
    // код создания формы здесь
    if MyForm <> nil then
    begin
      // код, который нужно выполнить, если форма создана
    end
    else
    begin
      // код, который нужно выполнить, если форма не создана
    end;
  finally
    MyForm.Free;
  end;
end;