Problem mit Komponente entfernen

[made in Germany]

Hi!

Ich komm wieder mal nicht weiter,
ich hoffe ihr könnt mir helfen:


Ich möchte die hier zur Laufzeit erstellte Kompnente wieder entfernen.

Delphi-Quellcode:

var
imgnew:TImage;    
x1,y1,imganz: Integer;


procedure TForm1.Button1Click(Sender: TObject);
   begin
        imgnew:=TImage.Create(self);
        imgnew.Parent:= SDIAppForm;
        imgnew.Show;
        imgnew.Canvas.Brush.Color:=clred;
        imgnew.PopupMenu:=Popupmenu1;
        imgnew.Canvas.Rectangle(x1,y1,x1+100,y1+100);

        imgnew.Name:='Image'+IntToStr(imganz);              // Namen ändern
        imganz:=imganz+1;

        x1:=x1+5;                   //neue Koordinaten
        y1:=y1+5;
   end;




procedure TForm1.lschen1Click(Sender: TObject);
begin

TImage().Free;  // Hier sollte nacher die ausgewählte Kompnente irgendwie wieder entfernt werden

end;

Das Image, das das Popupmenü geöffnet hat, soll entfernt werden.

Zumindest hab ich mir das so vorgestellt

[Hawkeye219]

Hallo,

die Eigenschaft TPopupMenu.PopupComponent ist wohl das, was du suchst.

Gruß Hawkeye

[made in Germany]

genau das hab ich gebraucht

danke

[Muetze1]

Frage: Warum legst du dir eine globale Variable für die Image Instanz an? Das ist total unsinnig, da du schliesslich mehr als eine Instanz anlegst und somit die anderen, alten Instanzen verlierst.

[made in Germany]

gut, okay. Hab ich geändert.

Wenn ich aber dann

PopupMenu.popupcomponent.free;

verwende, bekomme ich beim Schließen meines Programmes eine Fehlermeldung.
Woran liegt das?

[himitsu]

Probier mal
FreeAndNil(PopupMenu.PopupComponent); oder

Delphi-Quellcode:

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

[Hawkeye219]

Zitat von himitsu:

FreeAndNil(PopupMenu.PopupComponent);

Damit wird der Compiler wohl nicht einverstanden sein. "PopupComponent" ist ein Property.

Gruß Hawkeye

[himitsu]

Dann halt die zweite Variante

Es ist ja nur 'ne Vermutung, aber eventuell versucht dann ja irgendwas aus das Objekt zuzugreifen, welches in PopupComponent gespeichert ist und dann wirdja ein Fehler passieren, wenn da ein nicht mehr existierened Objekt drinsteht ^^

[made in Germany]

Funktioniert nicht


FEHLER:

Access violation at address 00000001. Read of address 00000001.


Kann mir mal jemand sagen, was das bedeutet?

[made in Germany]

Wenn ich jedoch bei der Prozedur TSDIAppForm.close folgendes eingebe:

imgnew:=TImage.Create(self);
Dann lässt sich das Programm ohne Fehler schließen