关于在delphi中的消息传递，

Question

如保在delphik 写消息，如何定义，有这方面的文章吗，请提供一下谢谢

Answer 1

const
  WM_MYMESSAGE = WM_USER + 1001;  //这样就自己定义了一个消息发送消息可以用
 SendMessage, PostMessage

Answer 2

const
  WM_MYMSG = WM_USER + 100;  ....
 
  private
    procedure MyMsg(var Msg: TMessage); message WM_MYMSG;  ....procedure TForm1.MyMsg(var Msg: TMessage);
begin
  ShowMessage('haha! received a default message');
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(Form1.Handle, WM_MYMSG, 0, 0);
end;  .....简单实例, 希望对你有帮助