delphi能实现类似电子地图那样的鼠标滚动或拖拉吗 ( 积分: 100 )

L

lili365

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-23

• #1

问题是：我在Ｔｓｃｒｏｌｌｂｏｘ中放入Ｔｉｍａｇｅ，图像很大，目前只能通过ｔｓｃｒｏｌｌｂｏｘ设置属性来滚动图像，能否通过鼠标事件来滚动、拖拉图片，实现与电子地图一样的滚动、拖拉效果。请高手指点。

 

A

ANiDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-24

• #2

在鼠标事件中设置TScrollBox属性就行了

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-01

• #3

ScrollBox1.HorzScrollBar.Position:=ScrollBox1.HorzScrollBar.Position+DistanX;
ScrollBox1.VertScrollBar.Position:=ScrollBox1.VertScrollBar.Position+DistanY;