Решение проблемы закрытия модального окна в Delphi: использование ModalResult

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

Вопрос, с которым вы столкнулись, довольно распространен среди разработчиков, работающих с Delphi и Object Pascal. При открытии модального окна (Form2) из другого (Form1) и попытке его закрыть, возникает ошибка доступа. Давайте шаг за шагом рассмотрим, как правильно решить эту проблему.

Описание проблемы

Вы открываете Form2 из Form1, используя модальное отображение. При попытке закрыть Form2 через кнопку, вы получаете ошибку доступа. В вашем коде есть несколько моментов, которые приведут к ошибке.

Шаг 1: Правильное создание модального окна

Для начала, давайте рассмотрим, как правильно создать модальное окно:

procedure TForm1.Action1Execute(Sender: TObject);
begin
  with TForm2.Create(nil) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

Здесь мы создаем Form2 без владельца (nil), показываем его модально и освобождаем ресурсы в блоке finally, что гарантирует освобождение даже в случае возникновения исключений.

Шаг 2: Использование ModalResult для закрытия окна

Теперь рассмотрим, как закрыть модальное окно с помощью ModalResult. В вашей кнопке отмены установите свойство ModalResult в mrCancel:

procedure TForm2.cancelBtnClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

Или установите это свойство в дизайнере формы, что позволит вам закрыть окно без написания обработчика нажатия кнопки.

Шаг 3: Понимание владельца формы

Важно понимать, что если вы передаете владельца при создании формы, то именно он будет отвечать за освобождение ресурсов формы. В вашем случае, поскольку вы управляете жизненным циклом формы, не нужно передавать владельца.

Шаг 4: Избежание ошибок доступа

Ошибка доступа, с которой вы столкнулись, скорее всего, связана с неправильным использованием переменной. Убедитесь, что вы работаете с тем экземпляром формы, который был создан, и не пытаетесь обратиться к неинициализированной переменной.

Заключение

Использование ModalResult является стандартным способом закрытия модальных окон в Delphi. Следите за тем, чтобы при создании формы не передавать владельца, если вы сами будете управлять ее жизненным циклом, и убедитесь, что вы работаете с правильной переменной формы. Это позволит избежать ошибок доступа и обеспечит корректное закрытие модальных окон.

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

Проблема связана с корректным закрытием модального окна в среде разработки Delphi с использованием свойства ModalResult.

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

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

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