Problem mit Komponente entfernen

[tigerman33]

Durch das imgnew:=TImage.Create(self); fühlt sich das Formular Form1 für das neue Image "verantwortlich". Da--wie bereits beschrieben--durch imgnew.Free der Instanzenzeiger nicht auf nil gesetzt wird, versucht deshalb das Form1, wenn es selbst freigegeben wird, imgnew erneut freizugeben. Und das funktioniert natürlich nicht.

Abhilfe wurde ja bereits beschrieben:

Delphi-Quellcode:

PopupMenu.PopupComponent.Free;
PopupMenu.PopupComponent := nil;

[made in Germany]

Hab ich versucht, funktioniert allerdings nicht

[Hawkeye219]

Durch

PopupMenu.PopupComponent := nil; wird lediglich der Verweis in der Popupmenü-Komponente gelöscht, aber nicht die globale Variable imgnew. Wenn nun beim Schließen des Programms versucht wird, über

imgnew.Free; eine Komponente freizugeben, die bereits über das Popupmenü gelöscht wurde, dann knallt es.

Ich würde in diesem Fall die globale Variable durch eine lokale Variable in der Prozedur Button1Click ersetzen. Die TImage-Komponenten erhalten ja einen Owner (self), somit werden nicht gelöschte Bilder automatisch von diesem Owner freigegeben.

Gruß Hawkeye

[tigerman33]

Okay, das war natürlich auch Blödsinn. Davon weiß natürlich Form1 immer noch nicht, dass die Komponente schon freigegeben ist.

Ich mag mich irren, aber eigentlich müsste Form1 beim Beenden das Image automatisch mit freigeben. Meine da mal was in der Hilfe gelesen zu haben... Berichtigt mich wenn ich falsch liege. D.h. um das Free müsstest du dich in dem Fall gar nicht mehr kümmern.

Alternativ müsste eigentlich auch gehen:
imgnew := TImage.Create(nil); anstelle von
imgnew := TImage.Create(self);

[made in Germany]

So, nun funktionierts!

Danke für die Hilfe