Если код такой, то всё работает корректно, но есть ненужная возможность создать это окно два раза повторным кликом:
Код:
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;
Как написать код создания окна, чтобы всё хорошо работало и окно было только в одном экземпляре ???