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中的結束任務功能。它不僅能關閉程序實例本身，而且還能釋放程序所占用的資源，能夠達到將程序徹底清除出系統的目的。