Delphi_桌面开发频道_中国IT实验室_技术·资讯·教育·服务·社区

首页 | JAVA | C# | VB | VB.NET | C/C++ | delphi | 工程管理 | 其他语言 | 论坛

各大城市软件开发培训、软件人才免费咨询热线:400-700-5807

　您现在的位置：中国IT实验室 >> 桌面开发 >> Delphi >> 正文

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

来源：ChinaItLab　作者：佚名　时间：2007-4-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组件的特性，读者可以通过完善这个实例来自己制作一个图像浏览器。

【责编:Lili】

Delphi初学者应小心的六大陷阱
基于Delphi的异常处理技术探究
Delphi中用API实现在MSN的信息提示
Delphi中"包"的妙用…
如何用Delphi实现子目录级的文件查询
在Delphi数据库应用程序中常见错误
如何使用Delphi实现无边界窗体的移动
如何用Delphi创建快捷方式
利用 Delphi 轻松编制压缩助理程序…
经验技巧：分享两条Delphi开发经验