Auto- create forms & Available forms

[bgoktas]

1.Projelerimizde kullandığımız formlar açılışta fazla zaman kaybettirmemesi için mi formları kendimiz cretae ediyoruz.
2.Available forms durumunda, formu show veya showmodalla çalıştırdığımız zamanmı create ediliyor.

[fahrettin]

1. Hem o hem de gereksiz yere belki hic acilmiyacak bir forumu create edip degerli olan memory'de ona yer ayırmamış oluyoruz.
2. Hayır, o zaman siz ilgili formu gostermeden once create etmelisiniz... Yani create edilmemiş bir formun show metodu access violation hatası verecektir. Cunku henuz ortada yoktur. Once create edilmesi lazim...

[mege]

Once create edilmesi lazim...

sonrada memoryden free ile hüppeerr silinmesi

Kod: Tümünü seç

var
  PrmForm: TPrmForm;
begin
PrmForm :=TPrmForm.Create(Application);
try
   PrmForm.ShowModal;
finally
  PrmForm.Free;
end;

[bgoktas]

1. madde tamam
2.madde hususunda; ben şöyle yapıyorum; avaliable formsda bir çok form var ama ben bunları çağırırken direk show ile çağırıyorum. hiçbir sorun çıkartmıyor.

[fahrettin]

2.madde hususunda; ben şöyle yapıyorum; avaliable formsda bir çok form var ama ben bunları çağırırken direk show ile çağırıyorum. hiçbir sorun çıkartmıyor.

Olmaması lazım...... Bir gariplik var ama .....

[bgoktas]

Sorunu anladım galiaba, Ben auto create' den avaliable ye aldığım zaman dpr'den create satırını iptal etmesi gerekiyor. Ama etmiyor
create edildiği için sorun çıkmıyor. Neden iptal etmediği hususunda aklıma şöyle birşey geliyor; dpr dosyasında progress bar ilerletmesi olduğundan ilgili satırı bulamıyor olabilir.

[fahrettin]

kesinlikle......
Project source'a ilave kodlar yazıldığında bu durum olabiliyor.....

[bgoktas]

Teşekürler, birşey daha öğrendim.Hayırlı Cuma'lar

[bobasturk]

Merhabalar, Yazdığım saate göre hayırlı geceler.

Forumda ararken lazım olan bu konuyu gördüm. Şimdi yaptığım çalışmada açılıştaki ilk form olan menü formu haricindeki tüm oluşturduğum formları avaliab olarak taşıdım ve söylediğiniz gibi access violation hata mesajı alıyorum. Bu durumdan kurtulmak için ne yapmam lazım.

açıklanmış ama acemi olduğum için neyin nereye yazılacağı ile birlikte açıklarsanız sevinirim.

saygı ve sevgilerle

[sadettinpolat]

mesela frmAna adında otomatik create edilen bir ana formumuz ve frmIkinci form adında manul create edilen ikinci bir formumuz olsun.
frmAna formunda yer alan button1 düğmesine tıklayınca frmIkinci formun görünmesini istiyoruz.

Kod: Tümünü seç

procedure TfrmAna.Button1Click(Sender: TObject);
begin
if frmIkinci <> Nil Then
  frmIkinci := TfrmIkinci.Create(self); 

 frmIkinci.ShowModal;
 FreeAndNil(frmIkinci); //işimiz bittikten sonra formu hafızadan siliyoruz
end;

[bgoktas]

bunlara + ilaveten şunu deneyin.

projenizin dpr' sinde herhangi bir oynama yaptıysanız.(mesela progress bar hareketi falan) avalaible yapsanız bile, delphhi ilgili formun create satırını silemez ve formu program çalışırken cretae eder. Sizde üstüne bir daha create ettiniz mi hatayı alırsınız.

İyi Günler.

[bobasturk]

Kod: Tümünü seç

procedure TMenu.BitBtn4Click(Sender: TObject);
begin
  if VeriGirisMenu <> Nil Then
  VeriGirisMenu := TVeriGirisMenu.Create(self);

  VeriGirisMenu.ShowModal;
  FreeAndNil(VeriGirisMenu); //işimiz bittikten sonra formu hafızadan siliyoruz

end;

bu şekil kendi formuma uyarladım hata verdi.

create kısmımda bir tane formum var menu formu ayrıca bu menu formu aynı zamanda main form. diğer formlar avaliab da. yukarıdaki kodu yazıp çalıştırınca uzun bir accsess violation hatası

VeriGirisMenu.ShowModal; kısmı maviye boyanıyor

ardından tekrar run yapınca;

access violation at address 004ee232 in module 'Olayyeri_Inceleme.exe'.Read of address 00000000.

hatasını veriyor ve formu açmıyor.

acaba hata menu formunun hem main form hemde create formda olmasındanmı başka bişimi

[sadettinpolat]

afedersin kodu yanlış yazmışım.
<> işareti yerine = işareti koyman gerekir.

Kod: Tümünü seç

if VeriGirisMenu = Nil Then 
  VeriGirisMenu := TVeriGirisMenu.Create(self); 

[gkimirti]

if VeriGirisMenu = Nil Then
yerine

if not Assigned(VeriGirisMenu) Then
kullanabilirsiniz.

[freeman35]

@gmikri nin kodunu uygulayın, ayrıca

Kod: Tümünü seç

initialization
   VeriGirisMenu := nil;

runtime create edilecek class ların variable larını, eğer create edilip edilmediğini kontrol edip sonrasında gerekiyorsa create edilecekse mutlaka nil ile sıfırlayın

kolay gele