为什么用postmessage发的消息收不到?

Question

环境:在一个主窗口中,有两个子窗口form1,form2
//定义部分
TForm1=class(TForm)
......
public
....
     procedure MSGProc(var msg : TMessage);message MSG_PROC;
........
end;.........
//实现部分
procedure TForm1.MSGProc(var msg : TMessage) ;
begin
case msg.wparam of
1 : begin PostMessage(form2.Handle, MSG_COMM, 1,1);end;
end;
end;
form2竟然收不到消息
但是
我在form1上放了个按钮button1,在按钮的onclick事件中加入
PostMessage(form2.Handle, MSG_COMM, 1,1);
当点击button1时,form2能收到
不知道什么原因

Answer 1

可能是Form1没有收到MSG_PROC, 
1 : begin PostMessage(form2.Handle, MSG_COMM, 1,1);end; 这句没有执行

Answer 2

PostMessage是同步消息, 调用就立即返回了. 用就要调用 Application.ProcessMessage;或者改成SendMessage.确认Form2有一个process MSG_Comm(var msg: TMessage); message MSG_Comm; 
的方法