在窗体中添加一个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字串查找
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
