Delphi 高手突破
class function ClassName: ShortString;
class function ClassNameIs(const Name: string): Boolean;
class function ClassParent: TClass;
class function ClassInfo: Pointer;
class function InstanceSize: Longint;
class function InheritsFrom(AClass: TClass): Boolean;
class function MethodAddress(const Name: ShortString): Pointer;
class function MethodName(Address: Pointer): ShortString;
function FieldAddress(const Name: ShortString): Pointer;
function GetInterface(const IID: TGUID; out Obj): Boolean;
class function GetInterfaceEntry(const IID: TGUID):
PInterfaceEntry;
class function GetInterfaceTable: PInterfaceTable;
function SafeCallException(ExceptObject: TObject;
ExceptAddr: Pointer): HResult; virtual;
procedure AfterConstruction; virtual;
procedure BeforeDestruction; virtual;
procedure Dispatch(var Message); virtual;
procedure DefaultHandler(var Message); virtual;
class function NewInstance: TObject; virtual;
procedure FreeInstance; virtual;
destructor Destroy; virtual;
end;
从 TObject 的声明中可以看到，TObject 包含了诸如实例初始化、实例析构、RTTI、消
息分发等相关实现的方法。现在就来研究一下 TObject 与消息分发，这也是 VCL 对 Windows
消息封装的模型基础。
在 TObject 类中，有一个 Dispatch()方法和一个 DefaultHandler()方法，它们都是与消息
分发机制相关的。
Dispatch()负责将特定的消息分发给合适的消息处理函数。首先它会在对象本身类型
的类中寻找该消息的处理函数，如果找到，则调用它；如果没有找到而该类覆盖了 TObject
的 DefaultHandler()，则调用该类的 DefaultHandler()；如果两者都不存在，则继续在其基
类中寻找，直至寻找到 TObject 这一层，而 TObject 已经提供了默认的 DefaultHandler()
方法。
先来看一个示例程序，它演示了消息分发及处理的过程。该程序的代码及可执行文件
可在配书光盘的 MsgDisp 目录下找到。
首先自定义一个消息结构 TMyMsg，它是我们自定义的消息记录类型。对于自定义的
消息类型，VCL 只规定它的首 4 字节必须是消息编号，其后的数据类型任意。同时，VCL
也提供了一个 TMessage 类型用于传递消息。在此程序中，不使用 TMessage，而用 TMyMsg
代替：
·68·
Click to buy NOW!
P
D
F
-
X
C
h
a
n
g
e
V
i
e
w
e
r
w
w
w
.
d
o
c
u
-
t
r
a
c
k
.
c
o
m
Click to buy NOW!
P
D
F
-
X
C
h
a
n
g
e
V
i
e
w
e
r
w
w
w
.
d
o
c
u
-
t
r
a
c
k
.
c
o
m
