请问一个捕捉鼠标右键的消息函数如何编写？？？谢谢!!(50分)

F

FFCA

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-24

• #1

我设计了一个Form，由于在一个Form上放的内容很多，而Form的大小，长度是一定的，因此
我在Form上放了一些panel(面板)，面板的长度超过Form的长度很多，因此Form在运行时会
出现滚动条(非常正常)!现在问题如下：
我必须拉动滚动条才能使Form滚动，而不能使用鼠标的中键来滚动，现在我想通过捕捉鼠标
右键来编写一个可以让Form上下滚动的函数，应如何编写？？？
望高手赐教 !!谢谢!!

 

S

smallstomach

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-24

• #2

用！wh_mouse 型的hook吧，然后再发消息给滚动条

 

T

tobey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-24

• #3

干嘛要这么麻烦呀，Form不是有个OnMouseWheelDown和OnMouseWheelUp事件吗？看我的：
const PageDelta = 10;
//OnMouseDown
with VertScrollbar do
Position := Position + PageDelta;
//OnMouseUp
with VertScrollbar do
Position := Position - PageDelta;

 

F

FFCA

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-24

• #4

哎，害我搞了整个下午，谢谢tobey了