Bild von festplatte in ein Projekt einbinde

[DeddyH]

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  Pfad: string;
begin
  if OpenPictureDialog1.Execute
         then
          begin
           Pfad := OpenPictureDialog1.filename;
           Image1.picture.LoadFromFile(Pfad);
           edit4.Caption:=Pfad;
          end;
end;