lazarusda form create sorunu

[sadikacar60]

--procedure ----

if not assigned(frmL1GameScreen) then Application.CreateForm(TfrmL1GameScreen, frmL1GameScreen);

 

if frmL1GameScreen<>nil then
                 begin
                 if _OyunVarmi=0 then frmL1GameScreen.Show;  //oyun yoksa ac
                 end; 

kod ılk calısmada hata vermıyor form acılıyor sonra form.close yaptıktan sonra 
formu tekrar acmaya calıstıgımda hata alıyorum show kısmında form yokmus gıbı hata verıyor 
oysa yukarda form yoksa create et yapıyorum.

hatam nerde acaba saygılar

---

FreeAndNil(frmL1GameScreen);

formun close metoduna yukardakı kodu yazınca duzeldı artık hata vermıyor
ama onerılerınıze acıgım
saygılar

[Tuğrul HELVACI]

(28-06-2024, Saat: 17:14)sadikacar60 Adlı Kullanıcıdan Alıntı: --procedure ----

if not assigned(frmL1GameScreen) then Application.CreateForm(TfrmL1GameScreen, frmL1GameScreen);

 

if frmL1GameScreen<>nil then
                 begin
                 if _OyunVarmi=0 then frmL1GameScreen.Show;  //oyun yoksa ac
                 end; 

kod ılk calısmada hata vermıyor form acılıyor sonra form.close yaptıktan sonra 
formu tekrar acmaya calıstıgımda hata alıyorum show kısmında form yokmus gıbı hata verıyor 
oysa yukarda form yoksa create et yapıyorum.

hatam nerde acaba saygılar

---

FreeAndNil(frmL1GameScreen);

formun close metoduna yukardakı kodu yazınca duzeldı artık hata vermıyor
ama onerılerınıze acıgım
saygılar

Formun OnClose olayında Action := caFree ataması yaptıktan sonra; formun OnDestroy olayında frmBilmemne := nil ataması yapabilirsiniz.