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;

代码运行截图:


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

 拉宽窗体,图片随之变宽:

好的代码像粥一样,都是用时间熬出来的
原文地址:https://www.cnblogs.com/jijm123/p/13943732.html