本实例演示如何不用添加代码就可轻松浏览大图像
当图像的尺寸大于显示区的大小时
就会自动显示滚动条
拖动这些滚动条就可以浏览显示区以外的图像
在窗体中添加一个TScrollBox组件设置AutoScroll属性为True然后在TScrollBox组件上添加一个TImage组件设置Align属性为alNoneAutoSize属性为True并且为TImage组件加载一幅大图像
经过以上的设置TImage组件就会根据图像的大小自动调节尺寸与此同时TScrollBox组件就会自动设置滚动条以方便浏览大图像
需要注意的是TImage组件是添加到TScrollBox组件上而不是窗体上添加方法是首先选中TScrollBox组件然后在组件工具栏中双击要添加的组件这样就会把组件添加到TScrollBox组件上设计完成的窗体如图所示
图 设计完成的窗体保存文件然后按F键运行程序程序运行的初始画面如图所示
在程序运行的过程中可以通过拖动鼠标实时地改变窗体上个部分的大小如图所示
图 程序运行的初始画面
图 程序运行结果本实例充分利用了Delphi中TScrollBox和TImage组件的特性读者可以通过完善这个实例来自己制作一个图像浏览器
