Delphi中TApplication类的用法 |
|
在Delphi中TApplication是一个有着非常主要作用的类 。TApplication类是用于 形容Delphi编制的 利用程序的一个类 。通过对这个类的灵便 利用 可以编制许多有特色的程序 。 。 1) 检测目前Windows程序是不是被激活： TApplication类有一个属性——Active，这个属性就 可以 形容目前运行的程序是不是被激活，成为Windows的焦点 。检 测的代码如下： If Application.Active=False then ShowMessage(’目前窗口没有被激活’)； 2) 获得目前程序的名称： TApplication类的EXEName属性 可以返回这个可执行程序的 完全文件名(包括路径) 。实现的代码如下所示： ShowMessage(Application.ExeName); 3) 转变程序极小化时的 题目 Tapplication类的Title属性 。这个属性决定了程序最小化时的 题目，而窗口中 题目栏的 题目是由Form的Caption属性来决定的 。其代码如下： Form1.Caption:=’ 窗口的 题目’; Application.Title:=’程序的 题目’; 4) 指明程序的主窗口 Windows系统中的界面都是窗口，但普通来讲有一个主窗口 。Tapplication的MainForm属性就 可以返回程序的主窗口 。 5) 显示 信息框 Delphi 可以生成一个含有中文显示的按钮，Tapplication的MessageBox函数了 。这个函数的原形如下： function MessageBox(Text, Caption: Char; Flags: Longint): Integer 例如：Application.MessageBox('需求存盘吗？',' 揭示信息',MB_OKCANCEL)； 这个函数返回的是一个整型的数值，而这个数值被系统指定了具体的 含意， 比方：按下“确定”按钮时返回的值是“1”，按钮的 意思及系统中对其定义的值： IDOK 1 IDCANCEL 2 IDABORT 3 IDRETRY 4 IDIGNORE 5 IDYES 6 IDNO 7 6) 操纵窗口的尺寸 普通 可以用窗口手柄来调整窗口的尺寸，然而也 可以用Application的事件来调整 。实现的 步骤是用以下两个过程： Application.Minimized; Application.Restore; 前一个过程用来将程序的主窗口最小化，而后一个过程用来将最小化的窗口 复原到原来的尺寸 。 7) 链接联机协助文件 Application的CurrentHelpFile属性 可以指定目前程序所用的联机协助文件的文件名 。这个属性 时常与另一个 步骤联合在一同 使用 。举例如下： Application.HelpFile := '联机协助文件名'; Application.HelpJump('联机协助文件的主题’) 通过这一命令组合，我们就能使系统弹出一个显示某主题的联机协助文件 。 8) 在程序运行时动态地 缔造窗口 窗口是在设计时加入到工程 名目中的，然而有时也需求我们在程序运行时动态地加入窗口，这就要用到Application 的CreateForm过程，举例如下： Form3:Tform3; //申明窗口类 Application.CreateForm(TForm3, Form3); // 缔造窗口 9) 完毕程序 固然我们 可以用关闭主窗口的 步骤来关闭一个程序，然而更好的 步骤是用Application的Terminate过程 。它 可以起到更彻底地关闭程序的 动机 。 10) Destroy 属性. 固然Delphi提供了这一属性, 然而并不提倡 使用它,假如要终结程序就要调用Terminate过程，而Destroy过程普通是用来在程序 产生悬挂时来退出程序时才调用，有些 类似 Windows中的 完毕 使命 性能 。它不不得不关闭程序实例 本身，并且还能 开释程序所占用的资源， 可以达到将程序彻底 革除出系统的 目标 。 |
