熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

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

2013-11-23 17:29:16  來源: Delphi編程 
本實例演示如何不用添加代碼就可輕松浏覽大圖像當圖像的尺寸大於顯示區的大小時就會自動顯示滾動條拖動這些滾動條就可以浏覽顯示區以外的圖像
  
  在窗體中添加一個TScrollBox組件設置AutoScroll屬性為True然後在TScrollBox組件上添加一個TImage組件設置Align屬性為alNoneAutoSize屬性為True並且為TImage組件加載一幅大圖像
  
  經過以上的設置TImage組件就會根據圖像的大小自動調節尺寸與此同時TScrollBox組件就會自動設置滾動條以方便浏覽大圖像
  
  需要注意的是TImage組件是添加到TScrollBox組件上而不是窗體上添加方法是首先選中TScrollBox組件然後在組件工具欄中雙擊要添加的組件這樣就會把組件添加到TScrollBox組件上設計完成的窗體如圖所示
  
 

  
設計完成的窗體

  
  保存文件然後按F鍵運行程序程序運行的初始畫面如圖所示
  
  在程序運行的過程中可以通過拖動鼠標實時地改變窗體上個部分的大小如圖所示
  
 

  
程序運行的初始畫面

  

  
程序運行結果

  
  本實例充分利用了Delphi中TScrollBox和TImage組件的特性讀者可以通過完善這個實例來自己制作一個圖像浏覽器
From:http://tw.wingwit.com/Article/program/Delphi/201311/24667.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.