Go homepage(回首页)
Upload pictures (上传图片)
Write articles (发文字帖)

The author:(作者)aaa
published in(发表于) 2014/7/19 0:12:52
delphi组件VCL运行机制

2．TApplication 对象

如果用户曾经应用API 编写过Windows 程序，一定知道Windows 应用程序的每一个窗口都有一个大的消息循环以及一个窗口函数（WndProc），此函数用来分发和处理消息。VCL 将这些东西隐藏起来，而重新提供了一种易用的、易理解的虚拟机制给程序员。只要代码单元中包含了Form.pas，就会得到一个对象—TApplication。TApplication 对象是VCL 提供的，在Form.pas 中可以看到如下这个定义：

var

Application:Tapplication

从表面上看，TApplication 类定义了一个应用程序的特性及行为，可以从Application 对象得到应用程序的可执行文件名称（ExeName），设置应用程序的标题（Title）等属性，也可以执行最小化（Minimize）、打开帮助文件（HelpCommand）等操作。

当创建一个默认的应用程序时，会自动得到以下几行代码：

begin

Application.Initialize;

Application.CreateForm(TForm1,Form1)

Application.Run;

End.

这几行代码很简单地展示了TApplication 的功能、初始化、创建必要的窗体及运行。

TApplication 的构造函数主要完成了两项功能，注册窗口类及窗口函数，创建Application 窗口实例。TApplication 类的Run 方法中有这样一段代码：

repeat

try

HandleMessage;

except

HandleException(Self);

end;

until Terminated;

这是主消息循环。看上去似乎没有取消息、分发消息的过程，其实它们都包含在HandleMessage()方法中了。HandleMessage()方法是对ProcessMessage()方法的调用，而在ProcessMessage()中就可以看到取消息、分发消息的动作了，以下是TApplication 中的ProcessMessage()方法的源代码，请注意其中的注释：

function TApplication.ProcessMessage(var Msg: TMsg): Boolean;

var

Handled: Boolean;

begin

Result := False;

// 取消息

if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then

begin

Result := True;

if Msg.Message <> WM_QUIT then

begin

Handled := False;

if Assigned(FOnMessage) then FOnMessage(Msg, Handled);

if not IsHintMsg(Msg) and not Handled and not IsMDIMsg(Msg) and

not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then

begin

// 熟悉的分发消息过程

TranslateMessage(Msg);

DispatchMessage(Msg);

end;

end

else

/ 如果取到的消息为WM_QUIT，则将Fterminate 设为真

//通知主消息循环退出

//这和WindowDemo 程序中判断GetMessage()函数返回值是否为0 等效

//如果GetMessage()函数取出的消息是WM_QUIT，它的返回值为0

FTerminate := True;

end;

end;

窗口函数是一个回调函数，它被Windows 系统所调用，其参数会给出消息编号、消息参数等信息，以便进行处理。TApplication 的Createhandle 函数将Application 窗口的窗口函数设置为WndProc()。整个WndProc()方法基本只包含了一个庞大的Case 分支，其中给出了每个消息的处理代码，“WM_”打头的为Windows 定义的窗口消息，“CM_?开头的为VCL 库自定义的消息。 需要注意的是，这里给出的WndProc 是属于TApplication 的，而每个Form 另外有自己的窗口函数。

赞