在Delphi中查询一个事件所对应的消息号

最近的一个程序需要用到PageControl的OnChange事件所对应的消息，但是在网上怎么也查不到OnChange事件所对应的消息号，于是总结出了下面这个方法。
遵循下面的路线，可以快速地查找一个事件所对应的消息号：
当前类事件---->事件所对应的属性----->追溯基类中属性的首次定义
---->从定义中找出属性所对应的字段---->在该类中搜索引用了该字段的方法
---->查找引用了该方法的事件处理程序---->事件处理程序的定义中就指定了消息号

例如，查找PageControl的OnChange事件所对应的消息号：
TPageControl.OnChange(继承基类)
TCustomTabControl.OnChange————(property OnChange: TNotifyEvent read FOnChange write FOnChange),从Onchage的定义可以得到FOnChange.
在TCustomeTabControl中寻找引用了FOnChange的方法，可以发现TCustomTabControl.Change引用了FOnChange，
于是继续查找引用了Change的事件处理程序，得到TCustomTabControl.CNNotify，查看TCustomTabControl.CNNotify的定义：
    procedure CNNotify(var Message: TWMNotify); message CN_NOTIFY;
因此PageControl的OnChange事件所对应的消息为CN_NOTIFY。