在不同窗体发送自定义消息的问题

Question

在第一个窗体里定义一个消息
const
 WM_MYMSG=WM_APP+$100;
使用
 sendmessage(MDIsaleslink.Handle,WM_MYMSG,1,0);向MDIsaleslink窗体发送自定义消息
在MDIsaleslink里定义一个方法procedure MyMessage(var msg:TMessage);message WM_MYMSG;来接收消息但我发现会提示我WM_MYMSG没有定义,我把
  const WM_MYMSG=WM_APP+$100;MDIsaleslink所在单元的interface里又写了一遍才好使,有没有什么方法能在程序中只定义一次消息在其它的窗体里都可以用,不要重载wndproc方法这样不但要判断message还要判断wparam.

Answer 1

在MdisalesLink中設成如下:
procedure MyMessage(var msg:TMessage);message WM_USER + $100;