MemoryLeak bei Frame und TComboBox.Items.AddObject()

[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ß.