自定义消息

尽管俺还不是什么开发人员,只能算一个Delphi爱好者,但也可以看看大师们的名著,受点熏陶,
自定义消息：
const
   MyMessage=WM_USER + 100;
....
消息处理：
var
   MyMessage:TMessage;
  with MyMessage do
  begin
     Message:=MyMessage;
     wParam:=0;
     lParam:=0;
     result:=0;
Panel1.Broadcast(MyMessage);
....
事件过程:
procedure doMyMessage(var msg:TMessage);message;MyMessage;
begin
   showMessage('这是我的消息');
end;