Delphi 自定义消息

1. 建立一个专门管理自定义消息的文件“DefMsg.pas”，其内容如下：

unit DefMsg;

interface

uses Windows, SysUtils, Classes,Messages;

CONST  WM_MINE=WM_USER+100;

implementation

end.

2. 在发送窗口处引用文件“DefMsg.pas”；

3. 在触发代码处编写代码：

SendMessage(Child.Handle,WM_MINE,0,0);

参数1：接收窗口指针；参数2：消息标示符；参数3,4:0

4. 在接收窗口处引用文件“DefMsg.pas”；

5. 在接收窗口加入消息响应代码

// 自定义消息处理函数
procedure TMDIChild.Mine(var msg:TMSG);
begin
  Application.MessageBox('   工具栏按钮1单击消息','主窗口消息',MB_OKCANCEL);
end;