【读书笔记】【Delphi高手突破】TControl与Windows消息的封装

原创 2015年01月05日 17:18:07

  今天开始开通博客,写一些读书笔记,用以以后自己便于查阅。

1,VCL类图主要分支

2,TObject与消息分发(万物之源“TObject”的消息机制原理)

a:自定义  TMyMsg:记录消息编码,内容结构体 .TMsgAccepter:消息接收器类

unit MsgDispTest;

interface
uses Dialogs, Messages;
type
  TMyMsg = record
    Msg : Cardinal;
    MsgText : ShortString;
  end;
  TMsgAccepter = class // 消息接收器类
    private
    procedure AcceptMsg2000(var msg : TMyMsg); message 2000;
    procedure AcceptMsg2002(var msg : TMyMsg); message 2002;
    public
    procedure DefaultHandler(var Message); override; //默认处理函数
  end;
  implementation
  { TMsgAccepter }
  procedure TMsgAccepter.AcceptMsg2000(var msg: TMyMsg);
  begin
    ShowMessage('嗨,我收到了编号为 2000 的消息,它的描述是:' + msg.MsgText);
  end;
  procedure TMsgAccepter.AcceptMsg2002(var msg: TMyMsg);
  begin
    ShowMessage('嗨,我收到了编号为2002的消息,它的描述是:' + msg.MsgText);
  end;
  procedure TMsgAccepter.DefaultHandler(var message);
  begin
    ShowMessage('嗨,这个消息我不认识,无法接收,它的描述是:' +TMyMsg(message).MsgText);
  end;
end.

b,调用单元

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,MsgDispTest;

type
  TForm1 = class(TForm)
    btnMsg2000: TButton;
    btnMsg2001: TButton;
    btnMsg2002: TButton;
    procedure btnMsg2000Click(Sender: TObject);
    procedure btnMsg2001Click(Sender: TObject);
    procedure btnMsg2002Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MsgAccept : TMsgAccepter; // 自定义的消息接收类
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 创建TMsgAccepter类的实例
  MsgAccept := TMsgAccepter.Create();
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
// 析构TMsgAccepter类的实例
  MsgAccept.Free();
  MsgAccept := nil;
end;
procedure TForm1.btnMsg2000Click(Sender: TObject);
var
Msg : TMyMsg;
begin
  // 将值为2000的消息分发给MsgAccept对象,观察其反应
  Msg.Msg := 2000;
  Msg.MsgText := 'Message 2000'; // 消息的文字描述
  MsgAccept.Dispatch(Msg); // 分发消息
end;
procedure TForm1.btnMsg2002Click(Sender: TObject);
var
Msg : TMyMsg;
begin
  // 将值为2002的消息分发给MsgAccept对象,观察其反应
  Msg.Msg := 2002;
  Msg.MsgText := 'Message 2002'; // 消息的文字描述
  MsgAccept.Dispatch(Msg); // 分发消息
end;


procedure TForm1.btnMsg2001Click(Sender: TObject);
var
Msg : TMyMsg;
begin
  // 将值为2001的消息分发给MsgAccept对象,观察其反应
  Msg.Msg := 2001;
  Msg.MsgText := 'Message 2001'; // 消息的文字描述
  MsgAccept.Dispatch(Msg); // 分发消息 ·72·

end;
end.

c,通过测试

调用顺序:1,Dispatch(),存在

                  2,DefaultHandler(),不存在


3,TControl与Windows消息的封装

a,鼠标点击事件

TControl
  FOnMouseDown: TMouseEvent;
  property OnMouseDown: TMouseEvent read FOnMouseDown write FOnMouseDown;

 在MouseDown()中,才会通过FOnMouseDown事件指针真正去执行用户定义的OnMouseDown事件的代码。

b,Windows处理消息机制

c,Application对象的本质





【读书笔记】【delphi高手突破】TCanvas与Windows GDI

TCanvas: 一条为图形组件(基类:TGraphicControl) , 一条为窗口组件(基类:TWinControl)。 1,TGraphicControl讲解(Tpen和Tbrush原理基本一...

delphi VCL研究之消息分发机制-delphi高手突破读书笔记

1.VCL 概貌 先看一下VCL类图的主要分支,如图4.1所示。 在图中可以看到,TObject是VCL的祖先类,这也是Object Pascal语言所规定的。但实际上,TObject以及TObj...

【读书笔记】【Delphi高手突破】TCanvas

1,VCL将GDI的设备抽象成一个画布(Canvas) TCanvas = class(TPersistent) private FHandle: HDC; State: TCanvasState;...

Delphi TControl 类(2)消息

Delphi--TControl与Windows消息的封装   TControl是从TPersistent类的子类TComponent类继承而来的。TPersistent抽象基类具有使用流stre...

《疯狂java-突破程序员基本功的16课》读书笔记之实例变量与类变量

1.变量类型 成员变量:

《疯狂 Java 突破程序员基本功的 16 课》读书笔记

第 1 课 数组与内存控制 数组初始化 使用数组 第 2 课 对象与内存的控制 实例变量 和 类变量 局部变量 成员变量 实例变量和类变量的属性 实例变量的初始化时机 类变量的初始化时机 父类构造...

30分钟理解关键链--《突破项目的瓶颈--关键链 》读书笔记

每一个PMP或者是准PMP都会知道关键链这个词。但能说清楚的应该没有多少。会用的估计更不会超过1/100。希望本文能是大家不用通读原著而理解关键链的概念,只用30分钟。 原著以小说的形式说明...

关于Java变量、数组、对象的声明、初始化与访问方式-----《疯狂Java突破程序员基本功的16课》读书笔记----第一章

任何变量对象 都需要初始化才能使用   所以个人认为书上描述的有一定不准确, 引用变量不是不需要经过初始化操作,而是需要人工进行初始化操作。而数组、类它们在如果没有程序显式的进行初始化操作的话,...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:【读书笔记】【Delphi高手突破】TControl与Windows消息的封装
举报原因:
原因补充:

(最多只允许输入30个字)