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