在Delphi中TApplication是一个有着十分重要作用的类TApplication类是用于描述Delphi编制的应用程序的一个类通过对这个类的灵活应用可以编制许多有特点的程序
) 检测当前Windows程序是否被激活
TApplication类有一个属性——Active这个属性就可以描述当前运行的程序是否被激活成为Windows的焦点检测的代码如下
If ApplicationActive=False then ShowMessage（当前窗口没有被激活）
) 取得当前程序的名称
TApplication类的EXEName属性可以返回这个可执行程序的完整文件名（包含路径）实现的代码如下所示 ShowMessage(ApplicationExeName);
) 改变程序极小化时的标题
Tapplication类的Title属性这个属性决定了程序最小化时的标题而窗口中标题栏的标题是由Form的Caption属性来决定的其代码如下
FormCaption:= 窗口的标题;
ApplicationTitle:=程序的标题;
) 指明程序的主窗口
Windows系统中的界面都是窗口但一般来讲有一个主窗口Tapplication的MainForm属性就可以返回程序的主窗口
) 显示消息框
Delphi可以生成一个含有中文显示的按钮Tapplication的MessageBox函数了这个函数的原形如下 function MessageBox(Text Caption: Char; Flags: Longint): Integer
例如ApplicationMessageBox(需要存盘吗？提示信息MB_OKCANCEL)
这个函数返回的是一个整型的数值而这个数值被系统指定了具体的含义比如按下确定按钮时返回的值是按钮的意义及系统中对其定义的值
IDOK
IDCANCEL
IDABORT
IDRETRY
IDIGNORE
IDYES
IDNO
) 控制窗口的尺寸
一般可以用窗口手柄来调整窗口的尺寸但是也可以用Application的事件来调整实现的方法是用以下两个过程
ApplicationMinimized;
ApplicationRestore;
前一个过程用来将程序的主窗口最小化而后一个过程用来将最小化的窗口恢复到原来的尺寸
) 链接联机帮助文件
Application的CurrentHelpFile属性能够指定当前程序所用的联机帮助文件的文件名这个属性经常与另一个方法联合在一起使用举例如下
ApplicationHelpFile := 联机帮助文件名;
ApplicationHelpJump(联机帮助文件的主题)
通过这一命令组合我们就能使系统弹出一个显示某主题的联机帮助文件
) 在程序运行时动态地创建窗口
窗口是在设计时加入到工程项目中的但是有时也需要我们在程序运行时动态地加入窗口这就要用到Application 的CreateForm过程举例如下
Form:Tform; //声明窗口类
ApplicationCreateForm(TForm Form); //创建窗口
) 结束程序
虽然我们可以用关闭主窗口的方法来关闭一个程序但是更好的办法是用Application的Terminate过程它能够起到更彻底地关闭程序的效果
) Destroy 属性
虽然Delphi提供了这一属性 但是并不提倡使用它如果要终结程序就要调用Terminate过程而Destroy过程一般是用来在程序发生悬挂时来退出程序时才调用有些类似 Windows中的结束任务功能它不仅能关闭程序实例本身而且还能释放程序所占用的资源能够达到将程序彻底清除出系统的目的
