在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中的結束任務功能它不僅能關閉程序實例本身而且還能釋放程序所占用的資源能夠達到將程序徹底清除出系統的目的
From:http://tw.wingwit.com/Article/program/c/201404/30445.html
