Повторное открытие окон - ошибка Access Violation

[delphicoding]

Здравствуйте!
Тупая проблема - всё работает отлично, но если открыть окно, закрыть окно, затем нажать кнопку открывающую окно - ошибка Access Violation, то есть ошибка при попытке повторного открытия окна.
Окно MDIChild, процедура закрытия окна caFree. Перед закрытием также прописано Dataset.Close (пробовал писать и FormDestroy и в FormClose). Создаётся окно в главной форме MDIForm так: fOkno := TfOkno.Create(self);
Ничего сложного вроде нет. Но баг есть... из-за чего может быть?!

[Аватар]

При закрытии убиваете окно, а при открытии не создаете.

[delphicoding]

Ещё раз - в главной форме MDIForm есть кнопка с кодом:
fOkno := TfOkno.Create(self);
Первый раз окно открывается отлично, всё ок.
Закрывается окно с кодом caFree также без багов.
При повторном нажатии на ТУ ЖЕ кнопку - ошибка!

[Аватар]

Сейчас набегут телепаты и на основании вашей инфы будут угадывать причину ошибки. Показывайте код и место аварии.

[delphicoding]

Если код такой, то всё работает корректно, но есть ненужная возможность создать это окно два раза повторным кликом:

fOkno := TfOkno.Create(Application);
fOkno.Show;

Если код такой, то баги:

ошибка:
FreeAndNil(fOkno); (или fOkno.Free;)
fOkno := TfOkno.Create(Application); (или Self)
fOkno.Show;

а так ничего не происходит при повторном нажатии, видимо переменная действительно не очистилась:
if not Assigned(fOkno) then begin   
fOkno := TfOkno.Create(Application);
fOkno.Show;
end;

Пробовал так, но это очевидно сразу же очищает окно после создания:
fOkno := TfOkno.Create(Application);
fOkno.Show;
FreeAndNil(fOkno);

Пробовал так, но опять ошибка:
if Assigned(fOkno) then FreeAndNil(fOkno);
fOkno := TfOkno.Create(Application);
fOkno.Show;

Как написать код создания окна, чтобы всё хорошо работало и окно было только в одном экземпляре ???

[Пепел Феникса]

а может не надо тысячу раз окно создавать?
создайте один раз, потом просто показывайте/скрывайте.

[Аватар]

процедура закрытия окна caFree

Использование caFree в OnClose убивает окно, но fOkno не очищается. Поэтому попытки опереться на содержимое fOkno заранее обречены на неудачу. Проверять существует ли дочернее MDI-окно нужно используя свойства MDIChildCount и MDIChildren главного MDI-окна. Показывать-скрывать дочерние MDI-окна тоже можно для простого приложения, для более сложного проекта это нерациональное использование ресурсов. В MDI приложениях использование fOkno может привести к серьезным ошибкам. А если две копии одного окна создается, почему бы и нет? Тогда в fOkno будет указатель на последнее созданное окно.

[delphicoding]

А если две копии одного окна создается, почему бы и нет? Тогда в fOkno будет указатель на последнее созданное окно.

Это криво, зачем юзеру 2 раза один каталог с одинаковыми данными из одного Dataset и синхронизированным курсором?! Два окна не нужны.

Использование caFree в OnClose убивает окно, но fOkno не очищается.

Также подумал, но как его очистить "в автоматическом режиме" для всех наследованных форм??? (то есть как написать код в окне MDIForm или в классе которы наследуется во всех каталогах типа BaseCatalogForm чтобы автоматически при закрытии окна очищалась переменная?!)

Показывать-скрывать дочерние MDI-окна тоже можно для простого приложения, для более сложного проекта это нерациональное использование ресурсов.

Думаю можно было бы и показывать-скрывать, просто не вижу смысла постоянно дерать в оперативке ненужные на текущий момент окна - зачем?

Поэтому попытки опереться на содержимое fOkno заранее обречены на неудачу. Проверять существует ли дочернее MDI-окно нужно используя свойства MDIChildCount и MDIChildren главного MDI-окна.

Пример напишите, пожалуйста...

[evg_m]

Пример напишите, пожалуйста...

F1

MDIChildren property (TCustomForm)

TCustomForm See also Delphi example C++ example

The following code closes all the MDI children of Form1.

var

  I: Integer;
begin
  with Form1 do
    for I := MDIChildCount-1 downto 0 do
      MDIChildren[I].Close;

end;

[delphicoding]

Я не понял общей концепции данного предложения - буду очень благодарен за работоспособный код учитывающий особенности задачи:
+ открытие множества каталогов из главного окна MDIForm;
+ формы всех каталогов базируются на унаследованной форме базового каталога;
+ запрет на открытие двух одинаковых окон каталогов;
+ возможность работать с несколькими разными каталогами и возможность закрывать только одно из открытых окон каталогов.
Напишите, пожалуйста, точный код Создания окна и Закрытия окна...