Delphi编程轻松实现大图像浏览

2008-02-23 07:15:20来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

  本实例演示如何不用添加代码就可轻松浏览大图像。当图像的尺寸大于显示区的大小时,就会自动显示滚动条,拖动这些滚动条就可以浏览显示区以外的图像。

  在窗体中添加一个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组件的特性,读者可以通过完善这个实例来自己制作一个图像浏览器。

上一篇: 用Delphi实现局域网内消息传递
下一篇: 一步步教你优化Delphi字串查找

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:用Delphi实现局域网内消息传递

下一篇:Delphi初学者参考