Access violation at address...

[smokie]

Merhaba,

anaform MDIForm ve 2 adet MDIChild form var.

form2 ve form3 create butonlardaki
kod

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
begin
  if not Assigned(Form2) then
    begin
     Application.CreateForm(TForm2, Form2);
     Form2.Show;
    end
  else TForm2(Form2).BringToFront;
end;

form2 ve form3 onclose da yer alan
kod

Kod: Tümünü seç

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Form2<>nil then FreeAndNil(Form2);
end;

ortalama 6 7 kere formları create edip kapattıgında
böyle bir hata veriyor.

Access violation at address 004032AA İN module project.exe Read of address FFFFFFD0

1 aydır uğraşıyorum her türlü denedim olmadı olmadı olmadı.
lütfen yardım edin sıyıracam.

[comfort]

Bu kodlarda bir sorun yok gibi gözüküyor. Muhtemelen kodun başka taraflarında bir sorun var.
İstersen onclose olayını şu şekilde değiştirip tekrar dene.Ben hep bunu kullanıyorum.

Kod: Tümünü seç

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
Form2:=nil;
end;

[smokie]

çook çook çook teşekkür ederim.

[orhancc]

onclose için şu kodu kullanabilirsin.

Kod: Tümünü seç

action := caFree;

[makgun64]

action := caFree;
form2:=nil;

aynı hatahı ben de alıyordum

form2:=nil;
hatayı çözdü

çok teşekkür ederim