Make image responsive in Delphi

Question

I’m in a project and I need to put a background image, I would like to leave this responsive image but I’m not getting it. I’m using the Timage to insert the image.

Answer 1

There are two ways of doing, in time design or by code, let’s go the first option.

Design Time:

As mentioned by @lucaswmolin, click on the TImage and in the properties will set first of all the image in picture then we will make the component responsive by defining alclient to the property align, then on the option Stretch we define how True to make the image you open the same size as the component. As you can see in the image below:

Code:

By code just use the following example in onCreate form:

procedure TForm1.FormCreate(Sender: TObject);
begin
  //vai abrir a imagem 
  Image1.Picture.LoadFromFile('caminho');
  //define o tamanho do componente ao form 
  Image1.Align := AlClient;
  //defini o tamanho da imagem ao componente
  Image1.Stretch := True;
end;

EDIT1:

---

After the comment of @Murilopecht that in the version Delphi 10.2 was not working I went to test and actually does not work if the project created is a "Multi-device Application" the steps for the image to stay working are as follows:

first Copy a Timage to the form
2nd In properties defines client for the option align.
3º In properties Multirestbitmap option click on the 3 points and we will load the image path, see in the image below where to load the path:

To use the code option, just use the following:

procedure TForm1.FormCreate(Sender: TObject);
begin
  //vai abrir a imagem 
  Image1.MultiResBitmap[0].bitmap.LoadFromFile('caminho');
  //define o tamanho do componente ao form 
  Image1.Align := TAlignLayout.Client;
end;