Delphi編程輕松實現(xiàn)大圖像瀏覽

字號:

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