自訂訊息樣本

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.