TObjectList: AV wenn OwnsObject := True

[Die Muhkuh]

Du musst das schon mit diesem TImageEnVect versuchen, alles andere hat keinen Sinn

[Der_Unwissende]

Zitat von Luckie:

Auch damit bekomme ich eine AV, auch wenn ich im Destruktor den parent auf nil setze:
self.Items[i].Parent := nil; Das ist irgendwie alles nichts. Ich glaube, ich bleibe doch bei meiner TList.

Du solltest auch tunlichst dem Parent mitteilen, dass sein Child nicht mehr gültig ist, nicht umgekehrt. Wenn Du control.Parent := Blubb verwendest, dann wird bei dieser Zuweisung Blubb.insertControl(control) aufgerufen, ist Blubb hier nil, nun ja, dann wird das natürlich nicht aufgerufen, aber der alte Parent bekommt davon so nichts mit. Deswegen solltest du removeControl (vom Parent aus) verwenden (denke die Methode heißt so, ist jetzt aber aus dem Kopf, lieber nochmal nachschauen!).

Am einfachsten ist es, wenn Du eine Liste von TComponentList ableitest, sagen wir mal TControlList. In dieser musst Du nur den Destruktor überschreiben und für alle Kinder vor dem Aufruf des geerbten Konstruktors dann etwas aufrufen wie:

Delphi-Quellcode:

var i: Integer;
begin
  if self.OwnsObjects and (self.Count > 0) then
  begin
    for i := 0 to self.Count - 1 do
    begin
      self[i].Parent.RemoveControl(self[i]);
    end; 
  end; 

  inherited destroy;
end;

Ach ja, natürlich darfst Du dann auch nur TControl-Instanzen einfügen.

[Angel4585]

Zitat von Die Muhkuh:

Du musst das schon mit diesem TImageEnVect versuchen, alles andere hat keinen Sinn

Hab ich jetz au gemacht, hab alles gemacht was Luckie da oben auch zugewiesen hat, kommt immernoch kein Fehler...

Edit: jetzt wo ich die Kompos schon hab kannst des ding au ma schicken oder?

[Hawkeye219]

Hallo Leute,

ich habe jetzt noch einmal mit TComponentList und Delphi 6 getestet. Beliebig viele TImage-Komponenten (Owner=nil) werden dynamisch erzeugt und auf einem Panel abgelegt, zusätzlich werden Referenzen auf die TImages in einer TComponentList (OwnsObjects=True) gespeichert. Nach dem Zerstören des Panels und der damit verbundenen automatischen Freigabe der TImages enthält die TObjectList keine Elemente mehr. Beim Freigeben der Form kann somit in deren OnDestroy-Handler die Liste ohne Probleme freigegeben werden. Auch das Freigeben der Liste zur Laufzeit funktioniert, die TImages werden dann automatisch vom Panel entfernt. Das alles funktioniert ohne Änderung an der TComponentList.

Der Fehler muß meiner Meinung nach im restlichen Code zu suchen sein - vielleicht in der Komponente TImageEnVect, wie Die Muhkuh ja in Beitrag #14 schon angedeutet hat.

Gruß Hawkeye