Einzelnen Beitrag anzeigen

Benutzerbild von tomsel
tomsel

Registriert seit: 8. Dez 2005
Ort: am Chiemsee
304 Beiträge
 
Delphi 7 Professional
 
#13

Re: Nochmal: Ermiteln ob Objekt freigegeben wurde

  Alt 13. Dez 2005, 13:46
Zitat:
tomsel hat folgendes geschrieben:
oder ganz einfach so:

Delphi-Quellcode:
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // hier werden noch viele weitere Dinge freigegeben
  Action := caFree;
  Form2 := nil;
end;
Funktioniert nicht.
Bekomme dann bei manchen Aktionen allgemeine Schutzverletzungen.
Dann verwendest Du die Variable Form2 irgendwo, ohne sie auf nil zu überprüfen. Der Fall ist nicht so kompliziert, wie Du ihn offensichtlich machst. Setze Form2 in FormCLose auf NIL und baue vor jeder Verwendung von Form2 eine Prüfung ein.
  Mit Zitat antworten Zitat