大家帮忙看看,创建消息事件出错~~~~~

Question

大家帮忙看看,创建消息事件出错,代码如下:
unit Memolcx;interfaceuses
  SysUtils, Classes, Controls, StdCtrls,Messages;type
  TMemolcx = class(TMemo)
  private
    FOnHScroll:TNotifyEvent;
    FOnVScroll:TNotifyEvent;
    procedure WMHScroll(var msg:TWMHScrll);message WM_HSCROLL;
    procedure WMVScroll(var msg:TWMVScrll);message WM_VSCROLL;
...........错误提示是:
[Error] Memolcx.pas(13): Undeclared identifier: 'TWMHScrll'
[Error] Memolcx.pas(14): Undeclared identifier: 'TWMVScrll'这是按书上写的,是不是Delphi中没有这两种类型?帮看一下,谢谢

Answer 1

-------------------->>>>>>>>>>>>>>
    procedure WMHScroll(var msg:TMessage);message WM_HSCROLL;
    procedure WMVScroll(var msg:TMessage);message WM_VSCROLL;