初涉Delphi下Windows消息机制——程序间自定义消息实例

 

窗口1添加一个button。添加button双击事件，代码如下：

const MY_MESSAGE=WM_USER+100;var Form1: TForm1; hd:Thandle;implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);begin hd:=FindWindow('TmyFORM1','myForm1'); if hd<>0 then begin PostMessage (Hd, MY_MESSAGE, 0,0); end else showmessage('找不到窗口myForm1');end; 

 

FindWindow是根据窗口标题和窗口类来获得窗口的句柄。

接受端新建一个工程，窗口命名为myForm1。代码如下：

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; const MY_MESSAGE=WM_USER+100;type TmyForm1 = class(TForm) private { Private declarations } procedure mymessage(var mymsg:TMessage);message MY_MESSAGE; public { Public declarations } end;var myForm1: TmyForm1;implementationprocedure TmyForm1.mymessage(var mymsg:TMessage);begin showmessage('收到'); inherited;end;{$R *.dfm}end. 

然后运行发送端程序和接受端程序，点击发送端按扭，接受端程序就会弹出一个对话框。

这儿使用的是PostMessage，会发现，不管已弹出的对话框有没有关闭，按钮依然可以继续点击，继续弹出对话框。

如果现在换成SendMessage，那第一次点击按钮，弹出一个对话框。但此时发送端不能再点击了，除非关闭了对话框，才可以进行下一次的消息发送。

这就是PostMessage和SendMessage的区别，PostMessage是发送信息，然后直接返回进行其他操作，而SendMessage则是等待消息处理程序结束了，才进行其他操作。