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;

代碼運行截圖：

點擊 打開圖片 按鈕載入圖片：

 

 拉寬窗體，圖片隨之變寬：