在 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;
代码运行截图:
点击 打开图片 按钮载入图片:
拉宽窗体,图片随之变宽: