Einzelnen Beitrag anzeigen

Benutzerbild von Union
Union

Registriert seit: 18. Mär 2004
Ort: Luxembourg
3.492 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: Nochmal: Ermiteln ob Objekt freigegeben wurde

  Alt 13. Dez 2005, 12:20
Im FormClose der Objekte solltest Du folgendes machen:
Delphi-Quellcode:
Procedure MyForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action := caFree;
end;
Dann genügt es, später die globale Variable auf nil abzufragen:
Delphi-Quellcode:
if frmMyForm = nil then
   frmMyForm := TMyForm.Create(Application);
frmMyForm.Show;
Ibi fas ubi proxima merces
sudo /Developer/Library/uninstall-devtools --mode=all
  Mit Zitat antworten Zitat