Delphi7之应用程序类TApplication

在任何基于窗体的Delphi7应用程序中均有这个全局变量，TApplication封装了一些很有用的属性和方法。在一般情况下不必关心全局变量TApplication的作用情况。

1、TApplication属性

• ExeName

ExeName属性能够返回应用程序的全路径和文件名。这个属性在运行时是只读的，不能修改。

Application.ExeName;  //显示应用程序带路径的全名。
ExtractFileName(Application.ExeName);  //获取文件名。
ExtractFilePath(Application.ExeName);  //获取全路径。
ExtractFileExt(Application.ExeName);  //获取文件的扩展名。

• MainForm

MainForm属性指明应用程序的主窗体，属性类型为TForm类，因此可以使用一些TForm类的属性和方法。

• Icon

Icon属性设置应用程序最小化时的图标。

• Title

Title属性设置应用程序运行时显示在Windows系统任务栏的文字。

• Active

Active属性显示应用程序是否为活动窗口（具有输入焦点的窗口）。

• Handle

Handle属性显示Windows系统中的窗口句柄。

• HelpFile

HelpFile属性指定帮助文件的文件名。

• ShowHint

ShowHint属性指定是否显示提示。

 

2、TApplication方法

• MessageBox

调用MessageBox方法将弹出一个包含提示信息的对话框。

Function TApplication.MessageBox(Const Text, Caption: PChar; Flags: Longint): Integer;
(*---------------------------------------------
Text：在信息窗口中显示的文本字符串。
Caption：在信息窗口的标题栏显示的文本字符串。
Flags：在信息对话框窗体上显示的按钮。有以下取值：
       MB_OK = 确定
       MB_OKCANCEL = 确定、取消
       MB_ABORTRETRYIGNORE = 终止、重试、忽略
       MB_YESNOCANCEL = 是、否、取消
       MB_YESNO = 是、否
       MB_RETRYCANCEL = 重试、取消
       MB_HELP = 帮助
       
       MB_ICONHAND = 错误图标。
       MB_ICONQUESTION = 询问图标。
       MB_ICONEXCLAMATION = 警告图标。
       MB_ICONASTERISK = 信息图标。
       MB_USERICON = 自定义图标。

       MB_DEFBUTTON1 = 缺省按钮为第一个按钮
       MB_DEFBUTTON2 = 缺省按钮为第二个按钮
       MB_DEFBUTTON3 = 缺省按钮为第三个按钮
       MB_DEFBUTTON4 = 缺省按钮为第四个按钮

       MB_TOPMOST = 消息窗口置顶显示
       MB_RIGHT = 消息窗口文本字符串右对齐
       MB_RTLREADING = 消息窗口文本字符串及按钮从右往左显示
       
返回值：
       IDOK = 用户选择了“OK”按钮。
       IDCANCEL = 用户选择了“取消”按钮。
       IDABORT = 用户选择了“中止”按钮。
       IDRETRY = 用户选择了“重试”按钮。
       IDIGNORE = 用户选择了“忽略”按钮。
       IDYES = 用户选择了“是”按钮。
       IDNO = 用户选择了“否”按钮。
---------------------------------------------*）

• Minimize

调用Minimize方法将应用程序的主窗体最小化。

• Restore

调用Restore方法将恢复应用程序的主窗体为最小化或最大化之前的状态。