Загрузка изображения в изображение Delphi

Question

Здравствуйте. В настоящее время я работаю над программой и хочу добавить кнопку, которая позволила бы пользователю загрузить изображение со своего компьютера в изображение.человек может использовать только эту конкретную картинку, и я хотел бы, чтобы он выбрал одну из своих компьютеров, спасибо:)

Answer 1

Вам необходимо отобразить открытый диалог:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TOpenDialog.Create(self) do
    try
      Caption := 'Open Image';
      Options := [ofPathMustExist, ofFileMustExist];
      if Execute then
        Image1.Picture.LoadFromFile(FileName);
    finally
      Free;
    end;
end;

Answer 2

Сначала поместите Timage и OpenPictureDialog в вашу форму, а затем в предложении использования добавьте jpeg.Затем при событии щелчка btnLoadPic введите код в виде

процедуры TForm1.btnLoadPicClick (Sender: TObject);

Begin

    If not OpenPictureDialog1.Execute Then
       Exit;
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    //If not (Image1.Picture.Graphic is TJPEGImage) Then

    //raise Exception.Create('File not JPEG image');

End;

Если вы хотите только изображение в формате JPEG, раскомментируйте закомментированные строки.В инспекторе объектов вы можете установить для свойства Timage Stretch значение True.