Timage控件不能完全显示图片,怎么样才能让它出现左右、上下滚动条?怎样才能实现鼠标对图象的拖动?(50分)

  • 主题发起人 主题发起人 ruolink
  • 开始时间 开始时间
R

ruolink

Unregistered / Unconfirmed
GUEST, unregistred user!
Timage控件不能完全显示图片,怎么样才能让它出现左右、上下滚动条?怎样才能实现鼠标对图象的拖动?
如果把Timage控件放入一个容器中,比如panel、scrollbar中,怎么设置才能实现滚动的效果?
 
image1放在scrollbar上,align为alNone。

image1.Picture.LoadFromFile('g:/big.bmp');
image1.Width := image1.Picture.Bitmap.Width;
image1.Height := image1.Picture.Bitmap.Height;

拖动的问题,在onmousedown记录位置,在onmousemove中画吧。
 
同意楼上
 
image1.Picture.LoadFromFile('g:/big.bmp');
image1.autosize := true;
 
使用scrollBar
设置horzScrollBar和vertScrollBar的range属性就可以了,range即你想设置的图片大小
,把TImage的align设为:alClient
 
同意noyamm的,我也是用了一个scrollBar作为容器,把Image放到scrollBar里面,然后在载入图片的时候
设置:
image1.Width := image1.Picture.Bitmap.Width;
image1.Height := image1.Picture.Bitmap.Height;
跟影 子的建议一样。程序初始化的事件里面设置scrollBar的属性为alclient,Image的其他属性使用默认的。
而且必须是默认的,否则不会出现滚动条。
问题已经搞定,谢谢诸位的参与,送分!

 
多人接受答案了。
 
误导阿误导!!
害我看了半天看不懂

应该是scrollBox
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部