Delphi 零代碼實現大圖片瀏覽：TScrollBox + TImage 組合技

當圖片尺寸超過顯示區域，最簡單的瀏覽方式不是寫捲動邏輯，而是善用 VCL 內建的 TScrollBox 自動捲動機制。只需兩個組件、三個屬性設定，零代碼即可實現大圖片任意拖曳瀏覽，連視窗縮放都能即時響應。

三步完成

1. 放置 TScrollBox，設 AutoScroll = True。
2. 在 ScrollBox 內部放置 TImage（先點選 ScrollBox 再雙擊工具箱 Image）。
3. 設 TImage：Align = alNone、AutoSize = True，載入大圖片（Picture.LoadFromFile 或設計時指定）。

原理解析

• AutoSize = True 讓 TImage 依圖片實際像素尺寸自動調整 Width/Height。
• 當 TImage 尺寸超過 TScrollBox ClientRect 時，AutoScroll = True 自動顯示水平/垂直捲軸。
• 捲軸操作由 VCL 內建處理，無需寫 OnScroll、OnMouseWheel 等事件。
• 視窗縮放時，ScrollBox 客戶區變化，捲軸範圍自動重算。

設計時操作要訣

關鍵：TImage 必須是 TScrollBox 的子控件。操作方法：在 Object TreeView 或設計面先點選 ScrollBox 使其獲得焦點（邊框變虛線），再從工具箱雙擊 Image，或在 Object Inspector 拖曳 Image 到 ScrollBox 下層。

進階擴充方向

完整範例 DFM 片段

object Form1: TForm1
  object ScrollBox1: TScrollBox
    Left = 0; Top = 0; Width = 640; Height = 480
    AutoScroll = True
    object Image1: TImage
      Left = 0; Top = 0; Width = 100; Height = 100
      AutoSize = True
      Align = alNone
    end
  end
end

這是 Delphi 「組件導向」精髓的典型範例：理解組件屬性交互，往往能用零代碼解決看似複雜的 UI 需求。下次需要圖片瀏覽、長文檔預覽、大型圖表捲動時，請先想到 TScrollBox + AutoSize 子控件 這組黃金搭檔。

1. 上一篇文章： Delphi 實作跨平台定時自動關機程式：支援 Win9x 到 WinXP/2000/NT
2. 下一篇文章： Delphi 字串搜尋優化實戰：從 Pos 到指標掃描，效能提升 35%

Delphi

Delphi 2009 泛型容器進階：TObjectList<T> 等物件擁有權管理機制詳解

為什麼需要 TObjectList<T> 系列？

使用 Delphi 2005 開發 C# 應用程式（第三部分）

C# 基本語法對照 Delphi 2005 支援在同一 ID

FireDAC SQLite 進階：Unicode 排序規則 (TFDSQLiteCollation) 與中文排序測試

SQLite 內建僅支援二進制排序，FireDAC 提供 T

GDI+ 進階教學 (22)：TGPLinearGradientBrush - 矩形區域 + 預設方向模式 (TLinearGradientMode)

建構函數 constructor Create(const