主题：利用滚动条在Image中显示大位图
zxqlnmm
[专家分：40] 发布于 2007-10-11 21:20:00
请问各位大侠：我想在Image（AutoSize设置为False;）控件中显示一幅大小超过Image的位图，通过滚动条的滚动来显示。该怎样实现呢？
说明一下：不想用TFileStream,因为用文件流的话，无法进行图像的后期处理~
俺刚接触Delphi，项目又急着验收，希望有源码的朋友能奉献一下！必定高分！！
我的邮箱是zxqlnmm@yahoo.com.cn。再次感谢热心人~~
最后更新于：2007-10-11 21:25:00
回复列表 （共3个回复）
沙发
冰封星云 [专家分：2260] 发布于 2007-10-12 11:49:00
在窗体中添加一个TScrollBox组件，设置AutoScroll属性为True。然后在TScrollBox组件上添加一个TImage组件，设置Align属性为alNone，AutoSize属性为True，并且为TImage组件加载一幅大图像。
经过以上的设置，TImage组件就会根据图像的大小自动调节尺寸。与此同时，TScrollBox组件就会自动设置滚动条以方便浏览大图像。
需要注意的是，TImage组件是添加到TScrollBox组件上，而不是窗体上。添加方法是：首先选中TScrollBox组件，然后在组件工具栏中双击要添加的组件，这样就会把组件添加到TScrollBox组件上。
板凳
冰封星云 [专家分：2260] 发布于 2007-10-12 11:51:00
在窗体中添加一个TScrollBox组件，设置AutoScroll属性为True。然后在TScrollBox组件上添加一个TImage组件，设置Align属性为alNone，AutoSize属性为True，并且为TImage组件加载一幅大图像。
经过以上的设置，TImage组件就会根据图像的大小自动调节尺寸。与此同时，TScrollBox组件就会自动设置滚动条以方便浏览大图像。
需要注意的是，TImage组件是添加到TScrollBox组件上，而不是窗体上。添加方法是：首先选中TScrollBox组件，然后在组件工具栏中双击要添加的组件，这样就会把组件添加到TScrollBox组件上。
3 楼
zxqlnmm [专家分：40] 发布于 2007-10-12 17:42:00
好详细啊~~问题已经解决了！谢谢！
我来回复
您所在位置：