MemoryLeak bei Frame und TComboBox.Items.AddObject()

[Uwe Raabe]

Ich fürchte, mit deinem Ansatz wirst du nicht weit kommen. Die ComboBox verwaltet die ITEMDATA-Einträge selbst und offenbar werden die beim Schließen des Forms schon entfernt. Es gibt meines Wissens keinen Mechanismus um das zu umgehen ohne über OwnerDraw zu gehen. Selbst dann muss man die WM_DELETEITEM Message auch noch selbst abfangen und verarbeiten.

Wenn du die Kontrolle über die Items in der Combobox hast, dann kannst du die TTestObject-Instanzen auch über eine TObjectList<TTestObject> verwalten. Per Default ist dann die Liste für die Freigabe zuständig.

[himitsu]

Jupp, in den Notification-Events (CBN_*) gibt es wirklich nichts, was den Inhalt der Items betrifft.

https://docs.microsoft.com/en-us/win...ls/combo-boxes

[Aviator]

Zitat von Uwe Raabe:

Ich fürchte, mit deinem Ansatz wirst du nicht weit kommen.

Ja stimmt. Jetzt wo ich so drüber nachdenke. Die ComboBox gibt die Items ja eben nicht frei.

Nur die Frage die sich mir jetzt stellt ist: Warum gibt es keine MemoryLeaks, wenn ich das Frame manuell freigebe anstatt das vom Owner machen zu lassen?

Wenn es hierfür keine Lösung gibt, dann wäre es auch kein Problem stattdessen eine TObjectList<T> zu verwenden und die dann je nach ItemIndex auszulesen. Nur stelle ich mir eben schon die Frage wieso sich das hier so verhält.

[himitsu]

Es kommt wohl drauf an, was zuerst freigegeben wird.
Die Delphi-Komponente (TComboBox/TWinControl) oder die Windows-Komponente (HWND).
Wird z.B. zuerst das HWND der Form freigegeben, dann reißt das alle untergeordneten HWND mit, bevor die Delphi-Controls freigegeben werden.

Beim Selbstfreigeben ist dein Aufräumcode immer meistens zuerst dran, bevor der nachfolgende Code das HWND freigibt.



Dass es keine Events/Notifications gibt, erklärt dann auch, warum Delphi in diesem Items kein OwnsObjekts anbietet.
Via Owner oder in einer anderen TList/TObjectList/TComponentList deine TTestObject's zu verwalten wird dann wohl die einzige Lösung sein.

[Uwe Raabe]

Zitat von Aviator:

Nur die Frage die sich mir jetzt stellt ist: Warum gibt es keine MemoryLeaks, wenn ich das Frame manuell freigebe anstatt das vom Owner machen zu lassen?

Weil beim DestroyWindowHandle des Forms schon indirekt der Count der Combobox-Items auf 0 gesetzt wird und das TFrame1.Destroy ins Leere läuft; bei der manuellen Freigabe aber erst das Destroy ausgeführt wird, was dann im inherited erst die ComboBox freigibt.

Du kannst übrigens die MemoryLeaks vermeiden, wenn du das Frame schon im FormDestroy-Event freigibst anstatt auf die implizite Freigabe zu warten. Das DestroyWindowHandle wird nämlich erst danach ausgeführt.

[himitsu]

Sonst hat die VCL überall eine Kopie der Daten, damit die erhalten bleiben, auch wenn noch/grad kein Handle existiert.
Aber ausgerechnet hier nicht.

Man könnte ein eigenes TComboBoxStrings benutzen, was diesen "Makel" beseitigt.

[Aviator]

Tja sehr schade, dass bei einem Frame eine solche Ausnahme gemacht wird. Ich bin mir sicher, dass das bei einer normalen Form so nicht passiert. Ich nutze die Objects in einer ComboBox zwar nicht übermäßig oft, aber doch schon häufiger. Und so ein Problem ist mir bis jetzt noch nicht untergekommen.

Ich werde meinen SourceCode an der Stelle dann wohl auf eine TObjectList<T> umbauen und die Elemente selbst verwalten. Ist in dem Fall dann wohl einfacher.

Aufgefallen ist es mir aber wie immer nur deshalb, weil ich die möglichen Fehler eines zukünftigen Users natürlich schon bei der Entwicklung abfangen will. Der Fehler erscheint eben nur dann, wenn er einen neuen Job anlegen will, dann das Fenster aber einfach direkt schließt ohne vorher die Erstellung abzubrechen.

Immer diese User ... 80% des SourceCodes ist ja bekanntlich nur daher von Nöten, um die Fehler derjenigen abzufangen.


Danke an alle Beteiligten.

[himitsu]

Wenn sich der Parent ändert (z.B. kurz nil ist), dann kann das Handle eventuell freigegeben werden,
und auch beim Hide (Visible=False) oder Application.Minimize geben einige Komponenten ihre Handle frei (inkl. der Handle aller Unterkomponenten, weil Windows diese gleich mit löscht).
-> Sparmaßnahmen, weil die Komponente eh nicht sichtbar ist ... oder wenn eine Komponente ohne Parent nicht existieren kann

Hier ein paar Methoden/Ereignisse/Eigenschaften, die dein Problem betreffen. (TWinControl: alle Forms und sichtbaren Komponenten mit einem HWND)

Delphi-Quellcode:

procedure CreateHandle; virtual;
procedure CreateParams(var Params: TCreateParams); virtual;
procedure CreateWindowHandle(const Params: TCreateParams); virtual;
procedure CreateWnd; virtual;
procedure DestroyHandle; virtual;
procedure DestroyWindowHandle; virtual;
procedure DestroyWnd; virtual;
procedure RecreateWnd;
function HandleAllocated: Boolean;
procedure HandleNeeded;
property WindowHandle: HWnd read FHandle write FHandle;
property Handle: HWND read GetHandle;

So kann man CreateWnd überschreiben und beim Erstellen/Neuerstellen drauf reagieren.
z.B. wenn man bei einer Komponente/Fenster das Drag&Drop aktiviert hat, was man beim Neuerstellen wiederherstellen muß.