Mam formę dziecko wywoływaną dynamicznie
fmPodmiotSzukaj:=TfmPodmiotSzukaj.Create(mdiForma);
Formę dziecka fmPodmiotSzukaj chcę zamykać buttonem a nie przez "X"
no i mam:
procedure TfmPodmiotSzukaj.bbZamknijClick(Sender: TObject);
begin
fmPodmiotSzukaj.Close;
end;
procedure TfmPodmiotSzukaj.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
action:=caFree;
fmPodmiotSzukaj:=nil;
end;
Gdy otworzę dwa formularze i je później zamykam to przy zamykaniu drugiego pojawia się błąd:
Project Moj.exe raised exception class EAccessViolation with message 'Access violation at address 0046DD25 in module 'Moj.exe' . Read of address 000002F4 '. Process stoped.
Może ktoś wie jak się go pozbyć - szukałem na forum ale nieznalazłem.
Pozdr. ;)