消息简单示例一

示例一

 

自定义的消息必须由用户向窗口发送。Windows 提供了两种不同的方法向窗口发送Windows 消息：
PostMessage 函数和SendMessage 函数。这里通过例子来说明如何使用自定义消息。使用自定义消息前，
首先要定义一个消息标识符常量，为了避免和系统中已有消息标识符冲突，可在WM_USER 消息标识
符的基础上添加一个常量来赋给要定义的消息标识符。然后可在单元文件中定义消息响应过程和消息
标识符常量。消息响应过程使用消息类TMessage 的变量为参数，随后应定义一个消息标识符变量，
变量名必须为Message。

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton;
 const
 //定义一个WM_MYMESSAGE 消息 ,
 //为了避免和系统中已有消息标识符冲突，可在WM_USER 消息标识
//符的基础上添加一个常量来赋给要定义的消息标识符
 WM_MYMESSAGE=WM_USER +5;
type
  TMessageFrm = class(TForm)
    btn1: TRzButton;
    procedure btn1Click(Sender: TObject);
    procedure WMUser(var msg:TMessage);message WM_MYMESSAGE;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MessageFrm: TMessageFrm;

implementation

{$R *.dfm}

procedure TMessageFrm.btn1Click(Sender: TObject);
var
 HWnd:THandle;
begin
  HWnd:=FindWindow('TMessageFrm','MessageFrm');
  if HWnd<>0 then
   PostMessage(HWnd,WM_MYMESSAGE,0,0);
end;
  //编写响应自定义消息的代码
procedure TMessageFrm.WMUser(var msg: TMessage);
begin
  ShowMessage('我的消息');
end;

end.