erzeugts IImage Löschen?

[smart]

Hallo Alle!

Wenn ich so ein TImage erzeuge:

Delphi-Quellcode:

I := I + 1;
Mein_Bild[I] := TImage.Create(Form1);
  With Mein_Bild[I] do
    begin
      Parent := Form1;
        ......

Wie kann ich es dann wider löschen?

Mit z.B.
Mein_Bild[0].Free bekomme ich eine Fehlermeldung: Zugriffsverletzung bei Adresse ...

Gruß
Heike

[Neutral General]

Hi,

Also normalerweise dürfte das kein Problem sein. Zeig mal bisschen Code. Folgendes funktioniert nämlich ohne Probleme...

Delphi-Quellcode:

var
  Test: Array[0..1] of TImage;

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  for i:= 0 to 1 do
  begin
    Test[i] := TImage.Create(Self);
    with Test[i] do
    begin
      Parent := Self;
      Picture.Bitmap := ABitmap;
      Left := i* 100;
    end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
begin
  for i:= 0 to 1 do
   Test[i].Free
end;

[Blackheart]

Mein_Bild[0].Free - i wird wohl bei 0 anfangen schätz Ich mal dann gibt es 0 nicht Mein_Bild[1].Free.

[smart]

Hi.

Ich erzeuge (wie oben) z.B. 10 TImages (von 0 bis 9).
Also:
Mein_Bild[0]
Mein_Bild[1]
Mein_Bild[2]
Mein_Bild[3]
.....

Dann möchte ich z.B. Mein_Bild[2] löschen. Und genau das klappt nicht?

Gruß
Heike

[inherited]

Mit welchem Wert wird I initialisiert?
Wenn 0, dann fängt er erst bei 1 an Bilder zu erzeugen, weil ja vorher I erhöht wird. Zeig mal ein wenig mehr Code.

[smart]

Hi.

So erzeuge ich die Images:

Delphi-Quellcode:

Var I:Integer;
...

I := 0;
...

I := I + 1;
Mein_Bild[I] := TImage.Create(Form1);
  With Mein_Bild[I] do
    begin
      Parent := Form1;
      Width := Bild.Width div 5;
      Height := Bild.Height div 5;
      Tag := I;
      Stretch := True;
      Picture.Bitmap := Bild;
      OnClick := LosClick;
    end;

Wenn ich mit der Maus auf dem entsprechende Bild klicke soll es löschen:

Delphi-Quellcode:

procedure TForm1.LosClick(Sender: TObject);
begin
   Mein_Bild[TImage(Sender).Tag].Free;
end;

Gruß
Heike

[inherited]

Zum löschen: Warum so kompliziert? Gib doch direkt den Sender frei.
Zu deinem Problem: Mein_Bild[0] wird nie erzeugt, das erste erzeugte Bild ist Mein_bild[1]

[Blackheart]

Und das zum Dritten mal.

[smart]

Hi!

Zitat von inherited:

Zum löschen: Warum so kompliziert? Gib doch direkt den Sender frei.

Wie meinst Du das, den Sender frei geben?

Zitat von inherited:

Zu deinem Problem: Mein_Bild[0] wird nie erzeugt, das erste erzeugte Bild ist Mein_bild[1]

Das wa auch nur ein Beispiel, bei 0 hatte ich natürlich (I := -1; ). Wie Du den obigen Code entnehmen kannst, wird immer automatisch
der richtge Sender übergeben. Trozdem bekomme ich die Fehlermeldung. Da komme ich einfach nicht dahinter.

Gruß
Heike

[xaromz]

Hallo,

sehe ich das richtig, dass Du in der Click-Methode eines TImage selbiges freigeben möchtest? Das kann nicht funktionieren. Nachdem die Routine fertig ist, geht es ja zurück in den Code von TImage. Leider existiert das TImage aber jetzt nicht mehr. Also krachts.

Gruß
xaromz