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