原文鏈接:http://blog.csdn.net/delphi1234/archive/2008/02/20/2110083.aspx
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
const
WM_ME=WM_USER+100; //自定義消息；
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
//第一種消息處理方式; 只能處理常量消息；
procedure wmme(var message:TMessage);message WM_ME; //自定義消息處理過(guò)程，專(zhuān)門(mén)處理WM_ME消息； private
{ Private declarations }
public
{ Public declarations }
//第二種消息處理方式；可能處理常量或變量消息；
procedure WndProc(var message:TMessage);override; //重載窗口消息過(guò)程
//第三種消息處理方式
procedure WMCommand(var Message: TWMCommand); message WM_COMMAND; //命令消息處理過(guò)程
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Handle,WM_ME,0,0); //發(fā)送消息WM_ME ; 消息先由WndProc處理，再交給wmme處理；
end;
procedure TForm1.WMCommand(var Message: TWMCommand);
begin //第三種消息處理方式
if Message.NotifyCode = BN_CLICKED then
if FindControl(Message.Ctl) = Button1 then showmessage(‘點(diǎn)擊了Button1’);
inherited;
end;
procedure TForm1.wmme(var message: TMessage);
begin
ShowMessage(IntToStr(Handle)+ 'wmme'); //第一種消息處理方式
end;
procedure TForm1.WndProc(var message: TMessage);
begin
if message.Msg=WM_ME then //第二種消息處理方式
ShowMessage(IntToStr(Handle)+ 'WndProc');
inherited WndProc(Message); //這里inherited才會(huì )觸發(fā)一次wmme消息；
end;
end.
實(shí)例2/////////////////////////////////////////////////////////////消息的廣播方式/////////////////////////////////////////////////////////////////////////////
///////消息廣播只能將消息傳遞到接收消息的主程序中，MDIChild窗體不能接收到廣播消息；/////////
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure WndProc(var message:TMessage);override;
end;
var
Form1: TForm1;
MyMessage: DWORD;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.WndProc(var message: TMessage);
begin
if message.Msg=MyMessage then //第3步：重載Windows消息處理過(guò)程，處理接收到的MyMessage消息；
ShowMessage(FloatToStr(Handle)+ 'MyMessage');
inherited WndProc(Message);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(HWND_BROADCAST,MyMessage,0,0); //第2步：廣播MyMessage消息；
end;
/////////預先注冊好Windows消息；第一種方法////////////////////
procedure TForm1.FormCreate(Sender: TObject);
begin
//同一字符串,如'MyMessageMe'在不同的程序中調用RegisterWindowMessage注冊消息時(shí)，返回的MyMessage結果是一樣的。這樣為在不同程序之間廣播消息提供了可能。即不同程序注冊消息時(shí)，必須注冊相同的注符串。
MyMessage:=RegisterWindowMessage('MyMessageMe'); //第1步：注冊Windows消息，重點(diǎn)在于返回的值MyMessage
end;
/////////預先注冊好Windows消息；第二種方法////////////////////
{ initialization
MyMessage:=RegisterWindowMessage('MyMessageMe');
}
