Возникает ошибка исключения при повторном открытии формы

[Nik_K]

Ситуация: Приложение Delphi 7 подключена к БД Access.
При тестировании приложения по F8 ошибок 0. Через F9 открывается главная форма - нормально. Через меню главной формы открываю модально другую форму - нормально.
Закрываю модальную форму - нормально. При повторном открытии этой модальной формы возникает ошибка исключения. Скрины прилагаю. Кто мучился с данной проблемой? Как можно её решить?

[Аватар]

Похоже вы стучитесь к свойству (или переменной) формы, для которой раньше был выполнен метод Free

[Nik_K]

А делать то что надо? Чтобы стучаться куда надо.

[Аватар]

Делайте для модального вызова без всяких предварительных проверок примерно так

FormSprStrana:=TFormSprStrana.Create(Application);
try
  FormSprStrana.ShowModal;
finally
  FormSprStrana.Free;
end;

[Nik_K]

Закоментировал запись так:
Код:

procedure TGlavForm.MenSprStranaClick(Sender: TObject);
  begin
   //if FormSprStrana.Active then Close();
     FormSprStrana := TformSprStrana.Create(Owner);
      FormSprStrana.ShowModal;
       FormSprStrana.Free;
  end;

Получилось. Только непонятно, чем закоментированная запись не нравится Delphi (или ОС)?
Но Ваш код мне показался изящнее.
Интересно, много таких, которые эспериментируют от большого ума и неистребимого желания узнать: "что будет, если сделать так"?

[evg_m]

Как вы полагаете какую форму вы закрываете Close;

//if FormSprStrana.Active then Close();

[Gulik]

А что у вас формы не создаются автоматически?
Было бы достаточно только

FormSprStrana.ShowModal;

для показа формы

[Nik_K]

Полагаю, что это проверка типа, "если эта форма открыта, то сначала её надо закрыть". Могу оказаться и неправ.

[Nik_K]

Формы в опциях этого проекта Delphi стояли в avto-create, потом перекинул в avialable. С выводом форм приложения ничего не изменилось.
Мой гуру М.Фленов, поэтому по его "Библии" я добавляю строки в код. Возможно выходит "масло маслянное". Но принципиально не догоняю, почему не хочет восприниматься (скорее всего системой, ведь Delphi на это при проверке на ошибки не реагирует) проверка "Если форма активна, тогда закрыть"

[evg_m]

Я не просто так спросил

Как вы полагаете какую форму вы закрываете Close;

Разберем по строчкам что делается.
1.

if FormSprStrana.Active then Close();

Инициализируете закрытие не чего-нибудь а ГЛАВНОЙ формы.
Упоминание метода БЕЗ префикса относится к настоящему объекту(т.е здесь это будет главная форма)
а при закрытии главной формы закрывается ВСЕ приложение.
2.

FormSprStrana := TformSprStrana.Create(Owner);

Владельцем новой форму указ владелец главной формы(приложение).
создаете новую форму которая будет уничтожена вместе владельцем главной формы(приложением).
3.

FormSprStrana.ShowModal;

для показа нашей формы запускам цикл обработки сообщений.
Где ВНИМАНИЕ! происходит УНИЧТОЖЕНИЕ(см. П1) главной формы приложения как объекта ООП, и всех подчиненных ему объектов, в т.ч. вновь созданной формы.
КОД программы ПРОДОЛЖАЕТ работать.
3.

FormSprStrana.Free;

пытаемся удалить уже удаленное. (см п3) результат AV.

комментарий на строку включающую close отменяет закрытие главной формы, проложения и т.д. В результате все хорошо.