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

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

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对象的本质