Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#3

Re: Ein Interfaced Object im TTabSet speichern?

  Alt 20. Nov 2007, 16:45
Du musst die Referenzzählung "austricksen":
Delphi-Quellcode:
Fenster._AddRef; // <===
Tabs.AddObject(Fenster.GetBezeichnung, Pointer(Fenster));
Wobei Bernhard mit seiner Warnung schon recht hat.
Du musst jetzt nämlich dafür sorgen, dass bevor das Control freigegeben wird,
die _Release Methode aufgerufen wird. Ansonsten Speicherleck.

Nachtrag:
du könntest deine Interface-Objekte in TInterfaceList speichern. Das ist sauber und sicher.
Andreas
  Mit Zitat antworten Zitat