简单问题，在线等待： 鼠标滚轮控制FORM的上下滚动...........解决后立即结帖！！！ (50分)

希

希望

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-09

• #1

一个FORM上的内容太多，只好使用FORM的VertScrollBar，但是运行时，使用鼠标滚轮页面不能自动滚动，请教各位大侠，如何解决？
在ONMOUSEWHEELUP 或ONMOUSEWHEELDOWN事件中应该设置VertScrollBar的什么属性？

 

R

realLearning

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-09

• #2

Position

 

希

希望

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-09

• #3

大哥，请详细点，我是菜鸟...

 

X

x900

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-09

• #4

在onMouseWheelDown里
VertScrollBar.Position := VertScrollBar.Position + VertScrollBar.Increment;
在onMouseWheelUp里
VertScrollBar.Position := VertScrollBar.Position - VertScrollBar.Increment;
就OK了

 

希

希望

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-09

• #5

用如下的方法解决
down:
VertScrollBar.Position := VertScrollBar.Position + 10
up:
VertScrollBar.Position := VertScrollBar.Position - 10
谢谢两位！！！