Fehlermeldung: [Objekt] hat kein übergeordnetes Fenster

[Pfoto]

Hallo zusammen!

ich habe hier einen Nachfahren einer TListbox, der mit AddObject
hinzugefügte Objekte selbst verwaltet (ähnlich wie TObjectList).

Das Problem:
Im Destroy-Bereich (der natürlich überschrieben wurde), möchte
ich alle Objekte freigeben:

Delphi-Quellcode:

destructor TAdvEditListBox.Destroy;
var
  i: integer;
begin
  If fOwnsObjects then
    for i:= 0 to Items.Count-1 do
      If assigned(Items.Objects[i]) then
        TObject(Items.Objects[i]).free;

  inherited;
end;

Es kommt jedoch die Fehlermeldung:
"[Objekt] hat kein übergeordnetes Fenster".

Aber was haben die Items der noch nicht zerstörten Listbox
mit einem übergeordneten Fenster zu tun?

Oder wird vielleicht die Listbox schon vor der Methode
"Destroy" über "DestroyWnd" zerstört? Ich sehe aber
gar keinen Aufruf von "DestroyWnd" vor "Destroy"

Merkwürdigerweise wird "DestroyWnd" sogar ganz zu Beginn
bei Erstellung der Komponente aufgerufen...


Wäre toll, wenn mir hier einer zum Durchblick verhilft!

Dank und Gruß
Pfoto

[Kroko1999]

die Frage wäre: Ist der Parent deiner TObject(e) auf die Listbox gesetzt? Dann kümmert sich nämlich der Parent um das Destroy(en) und du würdest es ein zweites Mal tun!

[Pfoto]

Wenn ich mich recht entsinne, kann ich doch den "normalen"
TStrings, die der TListbox angehören, nur Objekte ohne Parent
zuweisen, d.h. ich bin _immer_ für deren Freigabe zuständig.

Die Items selbst werden erst im anschließenden Destroy
des Vorfahrens gelöscht, wie ich gesehen habe.


Gruß
Pfoto

[Kroko1999]

nein,

TListBox.AddItem('mein Text',Edit1); klappt reibungslos!

[Pfoto]

Die AddItem-Methode gibt aber leider auch nichts automatisch wieder frei,
wie ich eben nachgelesen haben:

Aus der Hilfe:

Zitat:

Beschreibung
AddItem fügt einen Eintrag an das Ende der Liste ein und ordnet ihn ggf. einem angegebenen Objekt zu.

Item ist der Text, der den Wert des Eintrags darstellt. Dieser String wird im Listenfeld angezeigt.

AObject ist ein Objekt, das Sie dem Eintrag zuordnen können. Das Listenfeld wird nicht zum Eigentümer dieses Objekts. Das Objekt wird also nicht automatisch freigegeben, wenn der Eintrag gelöscht wird.

Schade, dass es wirklich nicht schon längst eine Listbox
seitens Delphi gibt, die sowas von alleine managed.

Gruß
Pfoto

[Kroko1999]

dann packe alle Objecte zusätzlich in eine TObjectList, die managed dies von alleine