delphi image控件如何根据图片的大小自动缩放并显示

在 delphi 语言中，让 image 控件根据图片bai的大小自动缩放并显示du的步骤如下：

1、从zhi Tool Palette 面板上找到 TImage 控件，并拖放到窗dao口：

 

 

2、选中 Image 控件，调整到合适大小，并设置其属性：

Anchors 属性：

设置让 image 控件的大小随窗体改变而变化，并保持与左、右、上、下的边距不变。

 

 

 Stretch 设置为 True:

 

 

此项属性是关键设置，当此项设置为 True 时，Image 的图像就可以自动随大小的改变而拉伸或压缩显示：

帮助手册中关于 Image 控件的 Stretch 属性描述如下：

 

 

3、完成上述设置之后，就可以编写相关代码了。

以下是编写的一个示例代码，使用了 TImage、TOpenPictureDialog、TButton 控件，供参考：

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
  end;
end;

代码运行截图：

点击 打开图片 按钮载入图片：

 

 拉宽窗体，图片随之变宽：