delphi 自定义消息
delphi 自定义消息
消息描述
Tmsg是 Windows系统用来记录描述一个具体的windows消息的。就是windows 用于封装应用程序及系统程序发生的消息，它是操作系统使用的。
Tmessage 则封装了TMsg的参数，是应用程序响应的消息。该消息记载了消息的编号，最重要的就是它携带的两个参数。一般接收对象要定义处理句柄，然后对收到的消息 进行处理。如果不定义处理句柄，就交给祖先类去处理。我们在应用程序中使用的是TMessage 消息，而不是TMsg消息。
消息结构
Windows消息结构---Tmsg：
typedef struct tagMSG {
HWND hwnd;
UINT message;
WPARAM wParam;
LPARAM lParam;
DWORD time;
POINT pt;
} MSG；
delphi消息结构---Tmesssage：
TMessage = packed record
Msg: Cardinal;
case Integer of
0: (
WParam: Longint;
LParam: Longint;
Result: Longint);
1: (
WParamLo: Word;
WParamHi: Word;
LParamLo: Word;
LParamHi: Word;
ResultLo: Word;
ResultHi: Word);
end;
其中Integer是个判断变量条件，0和1只是为了给变体字段分组，0部分的三个字段和1部分的六个字段共享一段 内存。这段内存大小是12个字节，你要么用WParam, LParam...来访问，要么用WparamLo，WParamHi来访问。用不到0和1这两个值的，他们仅仅为可读性而存在。
也可以用：
case Boolean of
False:(...);
True:(...);
我们知道一个32位整数在内存中是高字节在后，低字节在前，因此，WParamLo被对应到WParam的低16位，WParamHi被对应到WParam的高16位。依次类推。
实例：
当程序运行到 sendmessage(Form1.handle,WM_User+100,0,0)时，
操作系统就把这个消息进行描述，填入TMsg的一个结构中，大概是这样：
AMsg:TMsg;
AMsg.handle:=Form1.handle
AMsg.message:=WM_User+100
AMsg.WParam:=0
Amsg.lparam:=0;
Amsg.time:=Getsystemtime();
Amsg.pt:=mouse.CursorPos;
然后再把这个消息重新封装，提取它里面的参数，发送给Form1.handle 所在的消息队列，有
form1.handle 所在的wndproc过程进行处理。
形式如下：
msg:Tmessage;
Msg.msg:=Amsg.Message( WM_User+100)
Msg.lparam:=Amsg.lparam
msg.wparam;=Amsg.wparam
然后 put Msg to Form1 消息队列 ，由form1的窗体过程处理。
Delphi用户定义消息：
Delphi中用户定义的消息大小必须是128bit，也就是16字节。
Delphi在接受到Tmesssage后，会自动把该消息转换成用户定义的消息结构
实例：
procedure CMSocketMessage(var Message: TCMSocketMessage); message CM_SOCKETMESSAGE;
CM_SOCKETMESSAGE消息触发CMSocketMessage函数，
CM_SOCKETMESSAGE消息是Tmesssage结构。
TCMSocketMessage是用户自定义消息机构，结构如下：
TCMSocketMessage = record
Msg: Cardinal;
Socket: TSocket;
SelectEvent: Word;
SelectError: Word;
Result: Longint;
end;
delphi自动进行如下转换
TCMSocketMessage .Msg=Tmessage.Msg
TCMSocketMessage.Socket=Tmessage.WParam
TCMSocketMessage.SelectEvent=地位字段（Tmessage.Lparam）;
TCMSocketMessage.SelectError=高位字段（Tmessage.Lparam）;
TCMSocketMessage.Result =Tmessage.Result