3. 创建新的消息处理方法
因为Delphi只为大多数普通Windows消息提供了处理方法，所以当你定义自己的消息时，就要创建新的消息处理方法。
用户自定义消息的过程包括两个方面：
● 定义自己的消息
● 声明新的消息处理方法
⑴ 定义自己的消息
许多标准部件为了内部使用定义了消息。定义消息的最一般的动因是广播信息和状态改变的通知。
定义消息过程分两步：
● 声明消息标识符
● 声明消息记录类型
① 声明消息标识
消息标识是整型大小的常量。Windows保存了小于1024的消息用于自己使用，因此当声明自己的消息时，你应当大于1024。
常量WM_USER代表用于自定义消息的开始数字。当定义消息标准时，你应当基于WM_USER。
某些标准Windows控制使用用户自定义范围的消息，包括ListBox、ComboBox、EditBox和Button。如果从上述部件中继承了一个部件，在定义新的消息时，应当检查一下Message单元是否有消息用于该控制。
定义消息的方法如下：
Const
WM_MYFIRSTMESSAGE=WM_USER+0;
WM_MYSECONDMESSAGE=WM_USER+1;
② 声明消息记录类型
如果你想给予自定义消息的参数有含义的名字，就要为该消息声明消息记录类型。消息记录是传给消息处理方法的参数的类型。如果不使用消息参数或者想使用旧风格参数，可以使用缺省的消息记录。
声明消息记录类型要遵循下列规则
● 以消息名命名消息记录类型，以T打头
● 将记录中第一个域命名为Msg，类型为TMsgPraram
● 将接着的两个字节定义为word 以响应word大小的参数
● 将接着的四个字节与long参数匹配
● 将最后的域命名为Result，类型为Longint
下面是TWMMouse的定义
type
TWMMouse=record
Msg: TMsgParam; { 第一个是消息ID }
Keys: Word; { wParam }
case Integer of { 定义lParam的两种方式 }
o: (
Xpos: Integer; { 或者以x，y座标 }
Ypos: Integer);
1: (
Pos : TPoint; { 或者作为单个点 }
Result: Longint; ) { 最后是Result域 }
end;
TWMMouse使用变长记录定义了相同参数的不同名字集。
⑵ 声明新的消息处理方法
有两类环境需要你定义新的消息处理方法：
● 自定义新部件需要处理没有被标准部件处理的Windows消息
● 已定义了自定义部件使用的新消息
声明消息处理方法的办法如下：
● 在部件声明中的protected部分声明方法
● 将方法做成过程
● 以要处理的消息名命名方法 但不带下划线
● 传递一个命名为Message的var参数，类型为消息记录类型
● 编写用于该部件的特别处理代码
● 调用继承的消息方法
下面是用于用户自定义消息CM_CHANGECOLOR的消息处理代码:
type
TMyComponent=class(TControl)
…
protected
procedure CMChangeColor(var Message:TMessage);
message CM_CHANGECOLOR;
end:
procedure TMyComponent.CMChangeColor(var Message: TMessage);
begin
color := Message lParam;
inherited;
end;