怎样在程序中获取鼠标滚轮的消息

Question

怎样在程序中获取鼠标滚轮的消息

Answer 1

在程序中处理WM_MOUSEWHEEL消息。

Answer 2

参考这篇文章：
http://www.yesky.com/SoftChannel/72342371928440832/20030619/1709082.shtml

Answer 3

to  TechnoFantasy(冰儿马甲www.applevb.com)
能不能你怎么这样回答别人的问题呢

Answer 4

publicprocedure MouseWheel(var Message: TMessage);procedure MouseWheel(var Message: TMessage);
begin
Message.Msg := WM_KEYDOWN;
Message.lParam  := 0;if Message.WParam > 0 then
 Message.WParam := VK_UP
else
 Message.WParam := VK_DOWN;SendMessage(Handle,Message.Msg,Message.WParam,Message.LParam);
end;