北京 魏文柏  


---- Delphi是一种面向对象的编程语言，由于它采用完全集成OOP的优点，因此

使它成为目前十分流行的Windows开发工具。在Delphi包含的众多类中，TApplic

ation是一个有着十分重要作用的类。TApplication类是用于描述Delphi编制的应

用程序的一个类。通过对这个类的灵活应用可以编制许多有特点的程序。下面我

们就举几个这方面的例子。  

---- 1 检测当前Windows程序是否被激活：  

---- Tapplication类有一个属性——Active，这个属性就可以描述当前运行的程

序是否被激活，成为Windows的焦点。检测的代码如下：  

If  Application.Active=False then
ShowMessage（’当前窗口没有被激活’）;

---- 2 取得当前程序的名称：  

---- Tapplication类的EXEName属性可以返回这个可执行程序的完整文件名（包

含路径）。实现的代码如下所示：  

---- ShowMessage(Application.ExeName);  

---- 3 改变程序极小化时的标题  

---- 如果您细心观察可以发现，一些程序的标题和程序的名称并不一致，尤其是

一些英文程序，窗体的标题栏比较长，可以容纳比较多的文字，而在最小化时，

往往变成了很少的几个字母。这中间起作用的就是Tapplication类的Title属性。

这个属性决定了程序最小化时的标题，而窗口中标题栏的标题是由Form的Captio

n属性来决定的。其代码如下：  

  Form1.Caption:=’ 窗口的标题’;
  Application.Title:=’程序的标题’;

---- 其实我们也可以在在程序设计时指定Tapplication类的Title属性值。操作

的方法是在开发环境中拉下Project菜单,选择Options菜单时弹出如图1 (略)的对

话框。在这个对话框中的Title栏中填写程序的标题一样也可以达到这种效果。并

且因为一般的工程文件都是以英文命名的，所以程序运行过程中弹出的消息框中

的标题是英文。但在指定了这个属性之后，这个程序的所有消息窗口的标题都变

为Title的值。这就使得程序看起来更加完整。  

---- 4 指明程序的主窗口  

---- Windows系统中的界面都是窗口，但一般来讲有一个主窗口。Tapplication

的MainForm属性就可以返回程序的主窗口。  

---- 5 显示消息框  

---- Delphi有许多显示消息框的函数与过程，比较常用的是ShowMessage，它用

起来虽然十分方便，但是却有一个问题，那就是这个消息框的按钮是以英文显示

的。如果要生成一个含有中文显示的按钮就要求助于Tapplication的MessageBox

函数了。这个函数的原形如下：  

---- function MessageBox(Text, Caption: Char; Flags: Longint): Integer

;  

---- 在这个函数中，前两项分别是显示的提示信息和消息窗口的标题，Flags是

一个长整值，用来指定按钮的个数及功能。熟悉Delphi的用户可能会注意到，这

个函数和Delphi 3所提供的同名函数有一点不同，那不是这个版本中字符串参数

都以字符的形式给出，而不再要求将其转化成指针。我们在使用时要注意加以区

别。  

---- Application.MessageBox(''需要存盘吗？'',''提示信息'',MB_OKCANCEL); 这

个语句在运行时显示的样式如图2 (略) 所示。  

---- 最后就这个函数的返回值作一些说明，实际上这个函数返回的是一个整型的

数值，而这个数值被系统指定了具体的含义，比如：按下“确定”按钮时返回的

值是“1”，而其它按钮的值列在表 1 中。  

---- 表 1 按钮的意义及系统中对其定义的值  

按钮的意义 按下此按钮时函数返回的值
IDABORT 3
IDCANCEL  2
IDIGNORE