delphi自定义消息(文章来自于网上，谢谢作者的总结)

假设你的消息这样定义：  
  Const    
      WM_YOURMSG=WM_USER+100;  
  你的过程定义可以这样：  
        procedure   YourProc(var   MSG:TMsg);message   WM_YOURMSG;  
  这样，当你的窗口收到该消息时，将调用这个过程。  
  例如：   

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; Const WM_MINE=WM_USER+100; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } procedure Mine(var msg:TMSG);message WM_MINE; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Mine(var msg: TMSG); begin Showmessage('OK'); end; procedure TForm1.Button1Click(Sender: TObject); begin Sendmessage(handle,WM_MINE,0,0); end; end.  
    
    这个单元定义了一个消息，当按下按钮时，向自己窗口发送这个消息（当然，不一定发送到自己的窗口，处理消息的过程也可以在其他地方），然后弹出个对话框。这当然是多此一举，不过，只是为了说明使用方法。