文档章节

学习 Message(6): 也可以直接覆盖祖先类的 WndProc 或 Dispatch 方法来响应消息

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 125
阅读 6
收藏 0

覆盖: WndProc
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  protected
    procedure WndProc(var Message: TMessage); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WndProc(var Message: TMessage);
begin
  inherited;
  if Message.Msg = WM_LBUTTONDOWN then
    ShowMessage('WndProc');
end;

end.

 
 
 
 
 

 

 

  

覆盖: Dispatch
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  public
    procedure Dispatch(var Message); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Dispatch(var Message);
begin
  inherited;
  if TMessage(Message).Msg = WM_LBUTTONDOWN then
    ShowMessage('Dispatch');
end;

end.

 
 
 
 
 

 

 

  

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

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Android中的消息队列与消息循环:认识Handler、Looper

学习android到今天也将近3个月了,虽然各种界面各种组件一直在欢快的用着,但有一天忽然发现,一些简单的东西去不是很理解:比如Bundle和Handler。于是就抽空好好阅读了下adk文档。现在也算是...

古沐风
2014/02/23
0
0
Delphi 面向对象编程 第二章

类的声明是一种类型声明,在delphi中,类被当作一个类型来声明,语法为: type classname = class (baseclass) {field } {procedure and function } {property } end; 注意:1、类的声明可以...

CODER-SU
2011/12/20
0
1
win32 sdk gui编程的一点经验

1、系统维持一个全局唯一的消息队列。 2、各个创建了window的线程,每个都有且只有一个消息队列,甭管它创建了多少窗口。有多少创建了window的线程,就有多少消息队列。相应就有多少消息循环...

小保哥
2013/12/31
0
2
windows编程的经验-----------------转载

转载自-------http://my.oschina.net/zhoubaojing/blog/189300 1、系统维持一个全局唯一的消息队列。 2、各个创建了window的线程,每个都有且只有一个消息队列,甭管它创建了多少窗口。有多少...

jinx88
2016/06/17
7
0
Objective-C消息机制的原理

在Objective-C中,message与方法的真正实现是在执行阶段绑定的,而非编译阶段。编译器会将消息发送转换成对objc_msgSend方法的调用。 objc_msgSend方法含两个必要参数:receiver、方法名(即...

AmoyAI
2012/12/07
0
0

没有更多内容

加载失败,请刷新页面

加载更多

C#默认OrderBy()函数的排序问题

昨天在客户现场遇到一个很奇葩的问题,猜下下面代码的排序输出是什么: static void Main(){ List<string> strs = new List<string>(){"11", "12", "1:"}; foreach(string str i......

Airship
29分钟前
2
0
Vue调试神器Vue.js devtools

前言: Vue.js devtools是一个高效的vue项目可视化检查工具,其主要功能就是可以快速查看页面结构、组件中的data变量、computed计算属性、props父组件传过来的值等等 Chrome上的使用方法: 科学...

JamesView
34分钟前
14
0
最全面的IGMP协议总结!

IGMP互联网组管理协议是TCP/IP 协议族中负责IP组播成员管理的协议,用来在IP主机和与其直接相邻的组播路由器之间建立、维护组播组成员关系。 一、IGMP 简介 IGMP(Internet Group Management...

linuxprobe16
38分钟前
1
0
node-sass 安装失败的各种坑

开始的时候引入别人的一个项目 npm install npm run dev 启动项目 报错 > sell@1.0.0 dev E:\web_hwf\Vue\02app > node build/dev-server.js Listening at http://localhost:8888 webpack: w......

黑魔法
40分钟前
1
0
Qemu中PCI设备透传(PCI-Assign)源码分析

在网上看到很多人说Qemu的PCI-Assign透传不支持IOMMU,而VFIO透传却可以(还被当做一种优势进行推荐)。而VFIO跟SRIOV并非有必然联系,那就是说VFIO和PCI-Assign进本都是靠软件实现的了?既然...

LastRitter
42分钟前
8
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部