Einzelnen Beitrag anzeigen

Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.343 Beiträge
 
Delphi 11 Alexandria
 
#1

Component.Free -> auch fremde Zeiger auflösen

  Alt 4. Sep 2010, 22:56
Das Problem ist früher schon besprochen worden.
Gibt es inzwischen eine (Delphi-)Löung, die ich noch nicht kenne?

Delphi-Quellcode:
Panel1 := TPanel.Create(Self);
Panel2 := Panel1;
Panel1.Free; // bzw. FreeAndNil(Panel1);
//... irgendwann später
if Assigned(Panel2) then
  Panel2.Caption := 'Exception!!!// geht natürlich nicht mehr
Ich habe mir mal die Quelle von TObjectList angesehen und sogar fast komplett verstanden, wie das da funktioniert.

Gibt es inzwischen eine Möglichkeit, auch einzelne Komponenten an andere zu binden?
Panel2 soll automatisch auf nil gesetzt werden, wenn Panel1 freigegeben wird.

Ein nützliches Feature wäre das sicher...
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)

Geändert von stahli ( 4. Sep 2010 um 23:11 Uhr)
  Mit Zitat antworten Zitat