有没有mouseWheel，mouseWheelup，mouseWheelDown 对应的事件过程？

Question

   正在改写窗体的几个事件对应的过程，实现一些视图的平移缩放等功能。   已经改写了mousemove等过程。例如：procedure MouseMove(Shift: TShiftState; X,Y: Integer); override;   实现过程是这样的，反正就是加了几句自己想要实现的咚咚了：   procedure TJessica.MouseMove(Shift: TShiftState; X,Y: Integer);
   begin
     inherited MouseMove(.....)
     ...........
   end;  问题来了：想改写鼠标滚动事件对应的过程的时候，没找到......            有是肯定有的，只是我没找到了.....相信大家明白我的意思了.            只有10分，请各位指教！！！

Answer 1

升级IDE，或者自己处理WM_MOUSEWHEEL

Answer 2

嗯，我还是截获MW_MOUSEWHEEL算了......

Answer 3

    procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
      WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
    procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);是这个吗？

Answer 4

是的，就是想找这三个过程，开始不知道叫FormMouseWheel...
已经按unsigned建议用了截获消息。
还是想找找他们...
我用的delphi6，有这三个过程吗？
在那里找到的？Forms里面？controls？....

Answer 5

听朋友说 delphi6 比delphi7 好，所以一直没升级.....

Answer 6

Delphi7及以下版本都没有这些消息的处理过程。需要自己手工添加。

Answer 7

delphi下面有这几个事件呀，不知你怎么找不到，我用的6

Answer 8

看了一下，form里有，其他控件好像没有

Answer 9

明白，你说“升级IDE，或者自己处理WM_MOUSEWHEEL”，其实已经说的很清楚了。
只是好奇多问一句，收工...继续编程去。