verhindern das bereits vorhandenes bild überschrieben wird

[Neutral General]

Hi,

Du musst/kannst das neue Bild in ein temporäres Bitmap laden und dann auf das Bitmap im Image malen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var tmp: TBitmap;
begin
  if Opendialog1.Execute then
  begin
    if Image1.Picture.Bitmap.Empty then
      Image1.Picture.Bitmap.LoadFromFile(Opendialog1.FileName)
    else
    begin
      tmp := TBitmap.Create;
      try
        tmp.LoadFromFile(Opendialog1.FileName);
        Image1.Picture.Bitmap.Canvas.Draw(0,0,tmp);
      finally
        tmp.Free;
      end;
    end;
  end;
end;