• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

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

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

消息区别于调用的优势:消息可以让你不需要知道接收者的确切类型。同时,消息可以有选择地处理。如果接收者对消息没有做任何处理,不会造成任何后果。最后,消息可以广播给多个接收者,而要同时调用几个过程则比较困难。

下面是一个在同一应用程序内自定义消息的实例:

创建一个窗口FORM1,拖一个按钮控件,btn1。双击btn1,创建btn1的点击事件。代码如下(省略头部代码):

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; //自定义消息常量 const MY_MESSAGE=WM_USER+100; type TForm1 = class(TForm) btn1: TButton; procedure btn1Click(Sender: TObject); private { Private declarations } //消息处理函数 procedure mymessage(var mymsg:TMessage);message MY_MESSAGE; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //消息处理 procedure Tform1.mymessage(var mymsg:TMessage); begin beep; inherited; end; procedure TForm1.btn1Click(Sender: TObject); begin //发送消息 SendMessage(Form1.Handle,MY_MESSAGE,0,0); end; end. 

 

运行该程序,点击button,就会运行SendMessage发送MY_MESSAGE这样一个自定义消息过去。Mymessage接受到该消息就会产生beep声响。

向指定窗口句柄发送消息的函数有3个,也就是sendMessage可以用其他两个代替:

 

推荐:初涉Delphi下Windows消息机制——系统预定义消息实例

[  该实例使用的是windows的WM_KEYDOWN消息,当按键按下时,发出beep声音。创建一个窗口,代码部分如下:type TForm1 = class(TForm) private { Private declarations

 

Form1.perform(MY_MESSAGE,0,0);

PostMessage(Form1.Handle,MY_MESSAGE,0,0);

Perform和SendMessage是要等消息处理结束后才返回,而PostMessage则是把消息送到消息队列之后,立即返回,管你什么时候处理。

在这个程序中。我们定义消息常量MY_MESSAGE=WM_USER+100;因为系统约定WM_USER+100到$7FFF之间是留给用户自定义的消息常量值。

procedure mymessage(var mymsg:TMessage);message MY_MESSAGE;

这次传递的是TMessage类型。而message标识符后面则是自定义消息常量。

SendMessage(Form1.Handle,MY_MESSAGE,0,0);

这是发送消息函数,参数类型分别为HWND,UINT,WPARAM,LPARAM,分别对应TMsg前4个成员。返回值为LRESULT,对应消息处理结果。

 

推荐:Delphi 自定义消息处理过程与Windows消息处理过程

[Delphi中,自定义消息处理过程与Windows消息处理过程的定义是一样的。1.主用步骤:1>. 首先定义一个消息标识符常量;如:WM_MYMessage = WM_USER+ 5;(标识符常量的取值


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
matlab中图像处理常见用法发布时间:2022-07-18
下一篇:
matlab中bar画自定义柱状图发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap