现在的大多数的鼠标都有鼠标轮，比如，当我们浏览网页时，鼠标轮上下移动，网页就自动上下滚动。鼠标轮的确给我们的操作带来很多方便，但是，在Delphi的大多数控件中都只支持 MouseDown,MouseUp,MouseMove等事件，而不直接支持MouseWheel事件，我们在帮助客户设计一个查看程序时就碰到这样的问题。这个查看程序的数据是放在一个DBGrid中的，数据比较多，超出整个屏幕，如果用鼠标轮上下移动，则DBGrid的光标只在可见范围内移动，超出屏幕的数据必须用键盘或右侧的滚动条，给用户造成极大不方便，客户强烈要求支持鼠标轮操作。但是查看DBGrid的事件属性没有对鼠标轮的支持，怎么办呢？