bild mit opendialog öffnen und mit savedialog speichern

[marabu]

Hallo Wieland,

wenn du dir zwei Schalter (LoadButton, SaveButton) auf deine Form ziehst, dazu aus der Palette die Dialog-Komponenten OpenPictureDialog und SaveDialog, dann geht es so:

Delphi-Quellcode:

procedure TForm1.LoadButtonClick(Sender: TObject);
begin
  with OpenPictureDialog do
    if Execute then
      Image.Picture.LoadFromFile(FileName);
end;

procedure TForm1.SaveButtonClick(Sender: TObject);
begin
  with SaveDialog do
    if Execute then
      Image.Picture.SaveToFile(FileName);
end;

Grüße vom marabu