delphi中的自定义消息系统

Question

 const SX_MYMESSAGE=WM_USER+100;//自定义一个消息常量
type
  TForm1 = class(TForm)
    Button1: TButton;
    
    procedure Button1Click(Sender: TObject);  private
    //消息名对应的函数名不能是一样一样的。
    procedure SXMyMessage(var Msg:TMessage);message SX_MYMESSAGE;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
  sendmessage(handle,SX_MYMESSAGE,0,0);
end;//消息名对应的函数名不能是一样一样的。
procedure TForm1.SXMyMessage(var Msg:TMessage);begin
    showmessage('yes .....');//这无所谓。
    //messageDlg('消息已收到，正在处理！',mtInfomation,[mbok],0);
end;

Answer 1

对啊，就是这个原因，应该不是运行出现错误，而是编译通不过吧！