消息传递

 1、传递非整型类型时，可用LongInt转换，接收时照样转换即可，例如要传递字符串：
var
   S: string
begin
   S := 'Test';
   SendMessage(Application.MainForm.Handle,WM_User,LongInt(S),0);
end

接收方：
      Caption := String(Message.WParam); 

2、SendMessage和Disptch的区别
    SendMessage是使用句柄发送，走的是操作系统的消息循环，需要进行排队，Disptch是直接向对象发送消息，不用排队。