程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi編程輕松實現大圖像浏覽

Delphi編程輕松實現大圖像浏覽

編輯:Delphi

本實例演示如何不用添加代碼就可輕松浏覽大圖像。當圖像的尺寸大於顯示區的大小時,就會自動顯示滾動條,拖動這些滾動條就可以浏覽顯示區以外的圖像。

在窗體中添加一個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組件的特性,讀者可以通過完善這個實例來自己制作一個圖像浏覽器。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved