文档章节

学习 Message(1): 消息发送

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 879
阅读 23
收藏 0
点赞 0
评论 0
消息流程:

譬如用鼠标左键点击一下窗体, 系统会收到一条 WM_LBUTTONDOWN 消息;
当鼠标抬起, 系统又会收到 WM_LBUTTONUP 消息.

系统收到消息后, 会告诉窗体发生的事情, 然后窗体再做出反应; 当然窗体能否做出反应要看窗体是否有相应的响应代码.

要响应 WM_LBUTTONDOWN 消息, 我们需要在 OnMouseDown 事件中写代码;
要响应 WM_LBUTTONUP 消息, 我们需要在 OnMouseUp 事件中写代码;

当然我们也可以通过其他方法(譬如消息方法)来响应消息.

关于消息流程, 这样说其实不够完整, 更详细的流程可以参见:
http://www.cnblogs.com/del/archive/2008/04/08/1142768.html 系列.

消息发送:

我们通过鼠标、键盘等操作, 就在有意无意地随时向系统发送消息; 但有时我也需要间接发送消息, 譬如: 我们并不需要点击窗体, 也可以向窗体发送一条 WM_LBUTTONDOWN 消息, 从而引发 OnMouseDown 事件的执行.

发送消息的常用函数:
function SendMessage(
  hWnd: HWND;        {目标句柄}
  Msg: UINT;         {要发送的消息(编号)}
  wParam: WPARAM;    {消息参数}
  lParam: LPARAM     {消息参数}
): LRESULT; stdcall; {返回处理结果}

function PostMessage(
  hWnd: HWND;     {目标句柄}
  Msg: UINT;      {要发送的消息(编号)}
  wParam: WPARAM; {消息参数}
  lParam: LPARAM  {消息参数}
): BOOL; stdcall; {是否发送成功}

function Perform(
  Msg: Cardinal;  {要发送的消息(编号)}
  WParam: WPARAM; {消息参数}
  LParam: LPARAM  {消息参数}
): LRESULT;       {返回处理结果}

 
 
 
 
 

 

 

  

SendMessage 发送消息后会等待处理结果;
PostMessage 把消息送人等待处理的消息队列.

发送 SendMessage 消息好比: 你扔一颗手榴弹到敌群中, 并期待看到血肉横飞的场面;
发送 PostMessage 消息好比: 你在敌人就要路过的地方埋上一颗地雷, 你就不管了.

其实 SendMessage 和 PostMessage 在实用过程中区别并不是很大.

Perform 和上面两个不同, 它是控件的一个方法, 最早定义在 TControl 类, TControl 的子孙都有这个方法, TControl 之上的父类们不需要处理消息, 也没有消息要处理.

Perform 和 SendMessage 更相似, 但貌似少了一个参数, 其实没有, 只是换了一下位置, 看它的调用对比:
SendMessage(控件句柄, 消息, 参数, 参数);
控件.Perform(消息, 参数, 参数);

消息和消息参数:

消息就是一个整数, 就是微软给做的一个编号:
0 .. WM_USER-1: Windows 使用
WM_USER .. $7FFF: 窗体类使用
$8000 .. $BFFF: 保留
$C000 .. $FFFF: 应用程序使用
大于 $FFFF: 保留

Delphi 也自定义了一些消息, 分别是 CM_ 和 CN_ 打头.

消息参数是个比较复杂的概念, 因为不同的消息有不同的参数规定, 其实学习消息的过程就是学习消息参数.
不过有些消息的参数就特简单, 譬如 WM_CLOSE 是关闭窗口的消息, 它不需要什么参数(不需要也要按格式写个数).

下面的例子使用四种不同的方法来关闭窗口:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SendMessage(Self.Handle, WM_CLOSE, 0, 0);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  PostMessage(Self.Handle, WM_CLOSE, 0, 0);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Self.Perform(WM_CLOSE, 0, 0);
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/10/24/1318897.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
ActiveMQ学习笔记(6)——JMS消息类型

1.前言 ActiveMQ学习笔记(四)——通过ActiveMQ收发消息http://my.oschina.net/xiaoxishan/blog/380446 和ActiveMQ学习笔记(五)——使用Spring JMS收发消息http://my.oschina.net/xiaoxishan/......

郭寻抚 ⋅ 2015/03/02 ⋅ 0

activemq in action学习笔记

JMS基本概念 JMS 是 SUN 公司开发的一套访问 MOM(Message-Oriented-Middleware) 消息服务中间件的标准 API。 MOM 提供消息接收和转发的服务,对消息进行缓存和持久操作,保证消息的安全性,JMS让...

dyzhou ⋅ 2015/08/24 ⋅ 1

vc6.0添加自定义用户消息的基本过程

在学习过程中遇到要添加用户自定义消息的过程.我觉得书上写的比较散,于是就自己总结了这个基本过程,以为日后备查. 首先弄清楚两点:(1)谁要发送这个消息(2)谁要接受这个消息。 用一个简单...

长平狐 ⋅ 2012/11/01 ⋅ 0

Handler Looper Message

Android(1)-Handler Looper Message MessageQueue http://www.cnblogs.com/TS-qrt/articles/android.html Android学习笔记——从源码看Handler的处理机制 http://www.cnblogs.com/yjiyjige/......

当空皓月 ⋅ 2014/10/23 ⋅ 0

RabbitMQ的几种典型使用场景

AMQP AMQP协议是一个高级抽象层消息通信协议,RabbitMQ是AMQP协议的实现。它主要包括以下组件: 1.Server(broker): 接受客户端连接,实现AMQP消息队列和路由功能的进程。 2.Virtual Host:其实...

引鸩怼孑 ⋅ 2016/02/20 ⋅ 0

ios视频直播(二)- RTMP协议学习总结

一。什么是rtmp协议 RTMP协议就是Real Time Messaging Protocol,实时消息传输协议, 是Adobe公司为Flash播放器和服务器之间音、视频及数据传输开发的实时消息传送协议。协议中,视频必须是H26...

鹿微微鹿 ⋅ 2016/06/25 ⋅ 3

Android开源中国客户端学习 消息模块

今天学习一下osc客户端的消息模块主要使用了动态receiver注册和静态注册,具体的功能有: 1.获取用户新的动态 并弹出notification显示 如果app在前台还要更新UI显示 2.发送完动弹后的UI通知更新...

SuShine ⋅ 2013/07/21 ⋅ 0

学习Spring Boot:(二十六)使用 RabbitMQ 消息队列(消息确认ack,rpc)

正文 我这里测试都是使用的是 交换器,Spring Boot 2.0.0, jdk 1.8 配置 Spring Boot 版本 2.0.0 在 文件中引入 AMQP 的依赖 1 2 3 4 <dependency> <groupId>org.springframework.boot</gr......

xiaomin0322 ⋅ 05/14 ⋅ 0

RabbitMQ的几种典型使用场景

RabbitMQ主页:https://www.rabbitmq.com/ 学习RabbitMQ的使用场景,来自官方教程:https://www.rabbitmq.com/getstarted.html 场景1:单发送单接收 使用场景:简单的发送与接收,没有特别的...

毛爷爷夸我帅 ⋅ 2016/01/21 ⋅ 0

Kafka学习笔记

Apache Kafka 一、消息队列分类 1.1 点对点 1.2 发布/订阅 二、消息队列对比 2.1 RabbitMQ 2.2 ZeroMQ 2.3 ActiveMQ 2.4 Redis 三、Kafka简介 3.1 Kafka简介 3.2 Kafka特点 四、Kafka架构 五...

凡夫俗子_ ⋅ 2017/06/14 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

zblog2.3版本的asp系统是否可以超越卢松松博客的流量[图]

最近访问zblog官网,发现zlbog-asp2.3版本已经进入测试阶段了,虽然正式版还没有发布,想必也不久了。那么作为aps纵横江湖十多年的今天,blog2.2版本应该已经成熟了,为什么还要发布这个2.3...

原创小博客 ⋅ 59分钟前 ⋅ 0

聊聊spring cloud的HystrixCircuitBreakerConfiguration

序 本文主要研究一下spring cloud的HystrixCircuitBreakerConfiguration HystrixCircuitBreakerConfiguration spring-cloud-netflix-core-2.0.0.RELEASE-sources.jar!/org/springframework/......

go4it ⋅ 今天 ⋅ 0

二分查找

二分查找,也称折半查找、二分搜索,是一种在有序数组中查找某一特定元素的搜索算法。搜素过程从数组的中间元素开始,如果中间元素正好是要查找的元素,则搜素过程结束;如果某一特定元素大于...

人觉非常君 ⋅ 今天 ⋅ 0

VS中使用X64汇编

需要注意的是,在X86项目中,可以使用__asm{}来嵌入汇编代码,但是在X64项目中,再也不能使用__asm{}来编写嵌入式汇编程序了,必须使用专门的.asm汇编文件来编写相应的汇编代码,然后在其它地...

simpower ⋅ 今天 ⋅ 0

ThreadPoolExecutor

ThreadPoolExecutor public ThreadPoolExecutor(int corePoolSize, int maximumPoolSize, long keepAliveTime, ......

4rnold ⋅ 昨天 ⋅ 0

Java正无穷大、负无穷大以及NaN

问题来源:用Java代码写了一个计算公式,包含除法和对数和取反,在页面上出现了-infinity,不知道这是什么问题,网上找答案才明白意思是负的无穷大。 思考:为什么会出现这种情况呢?这是哪里...

young_chen ⋅ 昨天 ⋅ 0

前台对中文编码,后台解码

前台:encodeURI(sbzt) 后台:String param = URLDecoder.decode(sbzt,"UTF-8");

west_coast ⋅ 昨天 ⋅ 0

实验楼—MySQL基础课程-挑战3实验报告

按照文档要求创建数据库 sudo sercice mysql startwget http://labfile.oss.aliyuncs.com/courses/9/createdb2.sqlvim /home/shiyanlou/createdb2.sql#查看下数据库代码 代码创建了grade......

zhangjin7 ⋅ 昨天 ⋅ 0

一起读书《深入浅出nodejs》-node模块机制

node 模块机制 前言 说到node,就不免得提到JavaScript。JavaScript自诞生以来,经历了工具类库、组件库、前端框架、前端应用的变迁。通过无数开发人员的努力,JavaScript不断被类聚和抽象,...

小草先森 ⋅ 昨天 ⋅ 0

Java桌球小游戏

其实算不上一个游戏,就是两张图片,不停的重画,改变ball图片的位置。一个左右直线碰撞的,一个有角度碰撞的。 左右直线碰撞 package com.bjsxt.test;import javax.swing.*;import j...

森林之下 ⋅ 昨天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部