文档章节

学习 Message(8): 使用不同的消息结构

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 206
阅读 7
收藏 0
点赞 0
评论 0

下面是同样的四段程序, 但分别使用了不同的三种消息结构: TWMMouseMove、TWMMouse、TMessage
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  protected
    procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMMouseMove(var Message: TWMMouseMove);
var
  x,y: Integer;
begin
  x := Message.XPos;
  y := Message.YPos;
  Text := Format('%d, %d', [x,y]);
end;

end.

 
 
 
 
 

 

 

  
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  protected
    procedure WMMouseMove(var Message: TWMMouse); message WM_MOUSEMOVE;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMMouseMove(var Message: TWMMouse);
var
  x,y: Integer;
begin
  x := Message.XPos;
  y := Message.YPos;
  Text := Format('%d, %d', [x,y]);
end;

end.

 
 
 
 
 

 

 

  
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  protected
    procedure WMMouseMove(var Message: TMessage); message WM_MOUSEMOVE;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMMouseMove(var Message: TMessage);
var
  x,y: Integer;
begin
  x := Message.LParamLo;
  y := Message.LParamHi;
  Text := Format('%d, %d', [x,y]);
end;

end.

 
 
 
 
 

 

 

  

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

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 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

研磨设计模式 之 桥接模式(Bridge)

24.1 场景问题 24.1.1 发送提示消息 考虑这样一个实际的业务功能:发送提示消息。基本上所有带业务流程处理的系统都会有这样的功能,比如某人有新的工作了,需要发送一条消息提示他。 从业务...

铂金小猪4号 ⋅ 2014/01/07 ⋅ 1

【android基础学习之五】——基础控件Menu,Dialog,ImageView,ImageButton

声明:学习的书籍《Android应用开发揭秘》,这里记录学习该书籍的日志,引用的相关代码与总结描述,没有商业的用途,完全是自我学习的一个记录,刚刚学习不可避免会出现很多问题,若是有错误...

晨曦之光 ⋅ 2012/03/08 ⋅ 0

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

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

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

支持百万在线用户IM - J-IM

J-IM简介 J-IM(原名tio-im)是基于t-io写的轻量、高性能、(可能)支持百万在线用户IM,主要目标降低即时通讯门槛,快速打造低成本接入在线IM系统,通过极简洁的消息格式就可以实现多端不同协议...

轨迹_ ⋅ 05/07 ⋅ 0

基于HBase的消息队列--HQueue

HQueue简介 HQueue是一淘搜索网页抓取离线系统团队基于HBase开发的一套分布式、持久化消息队列。它利用HTable存储消息数据,借助HBase Coprocessor将原始的KeyValue数据封装成消息数据格式进...

红薯 ⋅ 2014/04/25 ⋅ 1

深入浅出MFC学习笔记:(第一章:win32基本概念,第二章:C++的重要性质)

深入浅出MFC阅读笔记: 写在开始的话: 刚结束《C++primer》的第二次阅读,决定趁热打铁,学习《深入浅出MFC》。当然,学习框架不是目的,而是通过学习MFC底层框架实现原理,对C++面向对象思...

长平狐 ⋅ 2012/10/08 ⋅ 0

Java for Web学习笔记(八六):消息和集群(1)一般性了解

应用消息:紧耦合和松耦合 应用消息常用的是RPC和发布/订阅,其实就是分布代表了同步和异步。随着大系统的发展,微服务架构的兴起,松耦合的发布订阅模式越来越流行。 以员工系统为例,涉及财...

flowingflying ⋅ 2017/11/10 ⋅ 0

java桥接模式

24.2 解决方案 24.2.1 桥接模式来解决 用来解决上述问题的一个合理的解决方案,就是使用桥接模式。那么什么是桥接模式呢? (1)桥接模式定义 (2)应用桥接模式来解决的思路 仔细分析上面的...

ok私塾 ⋅ 2014/01/08 ⋅ 0

消息队列--RocketMQ学习笔记

序言 本文是RocketMQ学习及使用过程中整理的笔记,主要是个人觉得很关键或者是需要加深理解部分知识的纪录,主要涉及RocketMQ基本概念、部署结构、消息相关知识等,可以做入门资料阅读 消息队...

LY丶Smile ⋅ 06/19 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

个人博客的运营模式能否学习TMALL天猫质量为上?

心情随笔|个人博客的运营模式能否学习TMALL天猫质量为上? 中国的互联网已经发展了很多年了,记得在十年前,个人博客十分流行,大量的人都在写博客,而且质量还不错,很多高质量的文章都是在...

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

JavaScript零基础入门——(十一)JavaScript的DOM操作

JavaScript零基础入门——(十一)JavaScript的DOM操作 大家好,欢迎回到我们的JavaScript零基础入门。最近有些同学问我说,我讲的的比书上的精简不少。其实呢,我主要讲的是我在开发中经常会...

JandenMa ⋅ 今天 ⋅ 0

volatile和synchronized的区别

volatile和synchronized的区别 在讲这个之前需要先了解下JMM(Java memory Model :java内存模型):并发过程中如何处理可见性、原子性、有序性的问题--建立JMM模型 详情请看:https://baike.b...

MarinJ_Shao ⋅ 今天 ⋅ 0

深入分析Kubernetes Critical Pod(一)

Author: xidianwangtao@gmail.com 摘要:大家在部署Kubernetes集群AddOn组件的时候,经常会看到Annotation scheduler.alpha.kubernetes.io/critical-pod"="",以表示这是一个关键服务,那你知...

WaltonWang ⋅ 今天 ⋅ 0

原子性 - synchronized关键词

原子性概念 原子性提供了程序的互斥操作,同一时刻只能有一个线程能对某块代码进行操作。 原子性的实现方式 在jdk中,原子性的实现方式主要分为: synchronized:关键词,它依赖于JVM,保证了同...

dotleo ⋅ 今天 ⋅ 0

【2018.06.22学习笔记】【linux高级知识 14.4-15.3】

14.4 exportfs命令 14.5 NFS客户端问题 15.1 FTP介绍 15.2/15.3 使用vsftpd搭建ftp

lgsxp ⋅ 今天 ⋅ 0

JeeSite 4.0 功能权限管理基础(Shiro)

Shiro是Apache的一个开源框架,是一个权限管理的框架,实现用户认证、用户授权等。 只要有用户参与一般都要有权限管理,权限管理实现对用户访问系统的控制,按照安全规则或者安全策略控制用户...

ThinkGem ⋅ 昨天 ⋅ 0

python f-string 字符串格式化

主要内容 从Python 3.6开始,f-string是格式化字符串的一种很好的新方法。与其他格式化方式相比,它们不仅更易读,更简洁,不易出错,而且速度更快! 在本文的最后,您将了解如何以及为什么今...

阿豪boy ⋅ 昨天 ⋅ 0

Python实现自动登录站点

如果我们想要实现自动登录,那么我们就需要能够驱动浏览器(比如谷歌浏览器)来实现操作,ChromeDriver 刚好能够帮助我们这一点(非谷歌浏览器的驱动有所不同)。 一、确认软件版本 首先我们...

blackfoxya ⋅ 昨天 ⋅ 0

线性回归原理和实现基本认识

一:介绍 定义:线性回归在假设特证满足线性关系,根据给定的训练数据训练一个模型,并用此模型进行预测。为了了解这个定义,我们先举个简单的例子;我们假设一个线性方程 Y=2x+1, x变量为商...

wangxuwei ⋅ 昨天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部