Image löschen/überschreiben

[dajuhsa]

ich weiß ja nicht, was genau du bezwecken willst, aber wie wäre es, wenn du erst prüfst, ob das Image schon erstellt wurde und, wenn ja, dann lädst du einfach nur ein neues Bild rein anstatt gleich ein neues zu erstellen, also

Delphi-Quellcode:

var Image:TImage;
begin
  for x:= 1 to anzahl do
   for y:= 1 to anzahl do begin
    if Image<>nil then
      Image.Picture.LoadFromFile('logo.bmp')//wenn du unbedingt neu erstellen willst,schreib hier nur: Image.Free;
    else begin                              //und lasse die Zeile weg
      Image := TImage.Create(self);
      try
        Image.Parent := Form1;
        Image.Left := 200;
        Image.Top := 500;
        Image.Picture.LoadFromFile('logo.bmp')
      except
        Image.Free;
        showmessage('Fehler beim bearbeiten von Image!')
    end;                                    //und diese ebenfalls;
  end;
end;

ich hoffe , das war halbwegs richtig und hilfreich