关闭

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

标签: delphi
165人阅读 评论(0) 收藏 举报
分类:

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

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




0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:29611次
    • 积分:803
    • 等级:
    • 排名:千里之外
    • 原创:51篇
    • 转载:4篇
    • 译文:0篇
    • 评论:3条
    文章分类
    最新评论