程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi中TApplication類的用法

Delphi中TApplication類的用法

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

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved