本實例演示如何不用添加代碼就可輕松浏覽大圖像
當圖像的尺寸大於顯示區的大小時
就會自動顯示滾動條
拖動這些滾動條就可以浏覽顯示區以外的圖像
在窗體中添加一個TScrollBox組件
設置AutoScroll屬性為True
然後在TScrollBox組件上添加一個TImage組件
設置Align屬性為alNone
AutoSize屬性為True
並且為TImage組件加載一幅大圖像
經過以上的設置
TImage組件就會根據圖像的大小自動調節尺寸
與此同時
TScrollBox組件就會自動設置滾動條以方便浏覽大圖像
需要注意的是
TImage組件是添加到TScrollBox組件上
而不是窗體上
添加方法是
首先選中TScrollBox組件
然後在組件工具欄中雙擊要添加的組件
這樣就會把組件添加到TScrollBox組件上
設計完成的窗體如圖
所示
圖 設計完成的窗體 保存文件
然後按F
鍵運行程序
程序運行的初始畫面如圖
所示
在程序運行的過程中
可以通過拖動鼠標實時地改變窗體上
個部分的大小
如圖
所示
圖 程序運行的初始畫面
圖 程序運行結果 本實例充分利用了Delphi中TScrollBox和TImage組件的特性
讀者可以通過完善這個實例來自己制作一個圖像浏覽器
From:http://tw.wingwit.com/Article/program/Delphi/201311/24667.html
