Определение состояния дочерних форм в приложениях на Delphi: не-модальные окна и их взаимодействие с родительскими

Delphi , Программа и Интерфейс , Формы

При разработке приложений на Delphi часто возникает необходимость работы с несколькими формами, где одна форма является родительской, а другая — дочерней. Вопрос, рассмотренный в данном материале, касается взаимодействия между родительской и не-модальной дочерней формами, а именно: как родительская форма может определить, открыта ли дочерняя форма или она была закрыта пользователем.

Проблема

Когда модальная форма создает не-модальную форму и вызывает метод .Show, возникает вопрос: как родительская форма может позже определить, открыта ли дочерняя форма или она уже закрыта пользователем?

Решение

Рассмотрим два подхода к решению этой задачи.

Проверка свойства Visible

Один из способов — проверка свойства Visible дочерней формы. Если значение этого свойства false, то форма скрыта и, следовательно, не отображается на экране. Однако, стоит отметить, что свойство Visible может быть false, даже если форма не закрыта, а просто скрыта за другими окнами. Поэтому этот метод не всегда является надежным.

Использование события OnClose

Более надежный способ — использование события OnClose дочерней формы. Родительская форма может подписаться на это событие и, таким образом, быть уведомленной о закрытии дочерней формы. Это позволяет родительской форме реагировать на закрытие дочерней формы и выполнять необходимые действия, например, обновление интерфейса или освобождение ресурсов.

Пример кода

// В родительской форме
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Создаем дочернюю форму
  ChildForm := TForm2.Create(nil);
  try
    // Подписываемся на событие OnClose дочерней формы
    ChildForm.OnClose := Form2Close;
    // Показываем дочернюю форму
    ChildForm.Show;
  except
    // Обработка возможных исключений
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end;

procedure TForm1.Form2Close(Sender: TObject);
begin
  // Здесь код реагирования на закрытие дочерней формы
  Writeln('Дочерняя форма закрыта');
end;

// В дочерней форме
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // Здесь может быть код перед закрытием формы
  inherited;
  // Устанавливаем действие на закрытие формы
  Action := caFree;
end;

Заключение

Для определения состояния дочерней формы в приложениях на Delphi рекомендуется использовать событие OnClose, которое позволит родительской форме корректно реагировать на закрытие дочерней формы. Проверка свойства Visible может быть менее надежным способом из-за возможности того, что форма может быть скрыта за другими окнами, но оставаться открытой.

Создано по материалам из источника по ссылке.

Вопрос касается определения состояния не-модальных дочерних окон в приложениях на Delphi и их взаимодействия с родительскими формами, включая методы проверки видимости и использования событий для отслеживания закрытия дочерних окон.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Формы ::