Form Create Edilmiş ise Oluşturma

[osmantn]

Arkadaşlar form oluştururken
if not assigned(KullaniciListesi) then
KullaniciListesi := TKullaniciListesi.Create(AnaMenu);
KullaniciListesi.Show;

şeklinde bir kod kullanıyorum.
Formu kapatırkende

--> Kullanicilistesi := Nil;
---> self.free;
diyerek formları sağlıklı şekilde free edebiliyorum ancak bu close işleminde KullaniciListesi := nil yazmak yerine KullaniciListesi yerine parametrik bir kod yazmak istiyorum. Her formun close olayına kendine özel kod eklemek yerine standart bir kod yazmak istiyorum. Bunu nasıl yapabilirim. Amacım eğer form oluşturulmuş ise tekrar oluşturma ve oluşturulmuş formu göster , formu kapatırsa formu tamamiyle free et.

[gkimirti]

KullaniciListesi aslında bir degisken, icinde formun (yada Tform nesnesinin) adresini tutmakta. siz global bu degiskeni kullanacaksanız parametrik bir Close yordamı yazamazsınız.
bunun yerine programınızın basında bir TStringList olusturarak create edilen formları buraya obje olarak ekleyebilirsiniz. ilgili formun close unda da bu listedeki elemanı silebilirsiniz.
aynı formu tekrar cagırdıgınızda listede varmı diye bakmanız yeterli eger yok ise formu olusturup listeye eklemelisiniz eger listede var ise kayıtlı adresten formu cagırmalısınız.
ornegin formu create ederken

Kod: Tümünü seç

try 
  KullaniciListesi:=TKullaniciListesi.create(nil)
  FormListem.AddObject('KullaniciListesiFormu',KullaniciListesi);
except
  ShowMessage('bir hata oldu.')
end;

[mrmarman]

Merhaba...

if not assigned(KullaniciListesi) then
KullaniciListesi := TKullaniciListesi.Create(AnaMenu);
KullaniciListesi.Show;

- Burada bringtofront komutu kullanırsan sorununu baştan halletmiş ve de parametrik çözüm aramaktan kurtulmuş olursun...

Kod: Tümünü seç

  if not assigned(KullaniciListesi) then 
  begin
    KullaniciListesi := TKullaniciListesi.Create(AnaMenu); 
    KullaniciListesi.Show;
  end else KullaniciListesi.Bringtofront;

Formu kapatırkende

--> Kullanicilistesi := Nil;
---> self.free;

Self.Free; yerine

Kod: Tümünü seç

Action := caFree;

tercih etmeni tavsiye ederim...

- Sorun yaşamamışsın belki de yaşamayacaksın ama bunu Action olarak sırası geldiğinde kendiliğinden yapılmasını sağlamak bence daha doğrusu.

- FREE kullanmana izin veriliyor keza belki de başka bir formu free etmek istersin...

[osmantn]

abstract error hatası alıyorum.

[gkimirti]

nerede, ne yaparken?

[mrmarman]

- Önce free işlemi olsun sonra Nil edersin. Satırları ters yazmış olabilirsin, bir kontrol eder misin? ...

Kod: Tümünü seç

  Action := caFree;
  KullaniciListesi := Nil;

Not: Bunları FormClose eventinde yazılıp yazılmadığını sormuyorum bile...

[freeman35]

OnClose Event inde Action := caFree;
OnDestroy Event inde KullaniciListesi := Nil;
kullan
ayrıcada

Kod: Tümünü seç

if not assigned(KullaniciListesi) then
KullaniciListesi := TKullaniciListesi.Create(AnaMenu);
KullaniciListesi.Show; 

tam sağlıklı çalışabilmesi içinde
@mrmcop da belirttiği gibi

Kod: Tümünü seç

if not assigned(KullaniciListesi) then
  begin
    KullaniciListesi := TKullaniciListesi.Create(AnaMenu);
    KullaniciListesi.Show;
  end else KullaniciListesi.Bringtofront;

kullan ayrıca bu kodun sağlaması yani kesin çalışması içinde
end. nın hemen üzerine

Kod: Tümünü seç

initialization
  KullaniciListesi := Nil;

yazmalısın. Daha önceleri application çalıştığında bu değişkenlerin tam olarak nil olmadıklarıyla karşılaşmıştım.initialization Application çalıştığında herşeyden önce ilk çalıştırılır.

Ayrıca parametrik yapıcaksanda @gmikri nin dediği yöntemi kullanmanı öneririm. Ben Eskiden dos tan kalma hala memory tasarrufu alışkanlığından TList i kullanıyorum Tlist i bir pointer array gibi düşünebilirsiniz. Kullanımı basit.

Kolay gele

[osmantaskiran]

Ben her formun destroy olayına kullanıcılistesi := nil
yazmak istemiyorum. temel form sınıfımda bunu söyleyip türettiğim formlarda bunun otomatik olmasını istiyorum.
Bunu yapabilir miyim?