[delphicoding]

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

[Snake22]

окно создаётся во время нажатия кнопки?
попробуй перед
fOkno := TfOkno.Create(self);
напиши fOkno.free;
возможно при повторном открытии переменная fokno уже занята.

[PhoeniX]

Мы программисты, а не гадалки. Давай код, посмотрим.

[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.Free)
fOkno := TfOkno.Create(Application);
fOkno.Show;

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

[PhoeniX]

Ставь обработчик на OnClose того окна, чтоб очищал переменную. Переменную, соответственно, сделай глобальной. Ну и тогда код, который

Код:

if not Assigned(fOkno) then begin
  fOkno := TfOkno.Create(Application);
  fOkno.Show;
end; 

у тебя будет работать замечательно.

[delphicoding]

Ставь обработчик на OnClose того окна, чтоб очищал переменную. Переменную, соответственно, сделай глобальной. Ну и тогда код, который

Увы, не получится, тк fOkno это Каталог (fCatalogOffice), а обработчик OnClose прописан не в самом классе fOkno, а в унаследованном базовом для многих каталогов классе fBaseCatalogsForm - можно ли из него как-то универсально указать уничтожать переменную соответствующую каждому конкретному окну?

[icWasya]

Сообщение от delphicoding

Увы, не получится, тк fOkno это Каталог (fCatalogOffice), а обработчик OnClose прописан не в самом классе fOkno, а в унаследованном базовом для многих каталогов классе fBaseCatalogsForm - можно ли из него как-то универсально указать уничтожать переменную соответствующую каждому конкретному окну?

Тогда перед показом окна ищи его в Screen.Forms, и если его там нет - создавай(любым способом, все созданные формы автоматически попадают в этот список)

[delphicoding]

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

[delphicoding]

Решено - первый код вполне правильный и хорошо работает, не хватало только полного очищения/уничтожения переменной fOkno, для этого потребовалось всего-лишь дописать в OnClose строку fOkno:=nil; и всё, никаких извратов и ненужных конструкций.