将图像加载到 TImage

在 Delphi 中，TImage 是用于显示图像的控件。它可以用来显示各种格式的图像，包括位图、JPEG、GIF 等等。本文将介绍如何将图像加载到 TImage 中。

步骤

1. 首先，需要在 Delphi 中创建一个 TImage 控件。可以在控件面板中找到并将其拖放到窗体上。

2. 接下来，需要选择要加载的图像文件。可以使用 Delphi 的 TOpenDialog 控件来实现。

   var
     OpenDialog1: TOpenDialog;
   begin
     OpenDialog1 := TOpenDialog.Create(Self);
     try
       OpenDialog1.Filter := '图像文件|*.bmp;*.jpg;*.jpeg;*.gif;*.png';
       if OpenDialog1.Execute then
       begin
         // 加载图像到 TImage 中
       end;
     finally
       OpenDialog1.Free;
     end;
   end;
   

   这里设置了文件筛选器，用户只能选择指定格式的图像文件。当用户选择了要加载的图像文件后，需要将它加载到 TImage 中。

3. 将图像加载到 TImage 中。可以使用 TPicture 类来加载图像文件。

   var
     Picture: TPicture;
   begin
     ...
     Picture := TPicture.Create;
     try
       Picture.LoadFromFile(OpenDialog1.FileName);
       Image1.Picture.Assign(Picture);
     finally
       Picture.Free;
     end;
   end;
   

   这里创建了一个 TPicture 对象，使用 LoadFromFile 方法将图像文件加载到 Picture 中，然后将加载后的图像赋值给 TImage 的 Picture 属性，从而将图像加载到 TImage 中。

总结

本文介绍了如何将图像加载到 TImage 控件中。通过以上步骤，可以方便地实现图像的加载和显示。