a亚洲精品_精品国产91乱码一区二区三区_亚洲精品在线免费观看视频_欧美日韩亚洲国产综合_久久久久久久久久久成人_在线区

首頁 > 編程 > Delphi > 正文

Delphi中TApplication類的巧用

2019-11-18 18:06:58
字體:
供稿:網(wǎng)友
---- Delphi是一種面向?qū)ο蟮木幊陶Z言,由于它采用完全集成OOP的優(yōu)點,因此使它成為目前十分流行的Windows開發(fā)工具。在Delphi包含的眾多類中,Tapplication是一個有著十分重要作用的類。TApplication類是用于描述Delphi編制的應(yīng)用程序的一個類。通過對這個類的靈活應(yīng)用可以編制許多有特點的程序。下面我們就舉幾個這方面的例子。 

---- 1 檢測當(dāng)前Windows程序是否被激活: 

---- Tapplication類有一個屬性——Active,這個屬性就可以描述當(dāng)前運行的程序是否被激活,成為Windows的焦點。檢測的代碼如下: 

If  Application.Active=False then
ShowMessage(’當(dāng)前窗口沒有被激活’);

---- 2 取得當(dāng)前程序的名稱: 

---- Tapplication類的EXEName屬性可以返回這個可執(zhí)行程序的完整文件名(包含路徑)。實現(xiàn)的代碼如下所示: 

---- ShowMessage(Application.ExeName); 

---- 3 改變程序極小化時的標(biāo)題 

---- 如果您細心觀察可以發(fā)現(xiàn),一些程序的標(biāo)題和程序的名稱并不一致,尤其是一些英文程序,窗體的標(biāo)題欄比較長,可以容納比較多的文字,而在最小化時,往往變成了很少的幾個字母。這中間起作用的就是Tapplication類的Title屬性。這個屬性決定了程序最小化時的標(biāo)題,而窗口中標(biāo)題欄的標(biāo)題是由Form的Caption屬性來決定的。其代碼如下: 

  Form1.Caption:=’ 窗口的標(biāo)題’;
  Application.Title:=’程序的標(biāo)題’;

---- 其實我們也可以在在程序設(shè)計時指定Tapplication類的Title屬性值。操作的方法是在開發(fā)環(huán)境中拉下PRoject菜單,選擇Options菜單時彈出如圖1 (略)的對話框。在這個對話框中的Title欄中填寫程序的標(biāo)題一樣也可以達到這種效果。并且因為一般的工程文件都是以英文命名的,所以程序運行過程中彈出的消息框中的標(biāo)題是英文。但在指定了這個屬性之后,這個程序的所有消息窗口的標(biāo)題都變?yōu)門itle的值。這就使得程序看起來更加完整。 

---- 4 指明程序的主窗口 

---- Windows系統(tǒng)中的界面都是窗口,但一般來講有一個主窗口。Tapplication的MainForm屬性就可以返回程序的主窗口。 

---- 5 顯示消息框 

---- Delphi有許多顯示消息框的函數(shù)與過程,比較常用的是ShowMessage,它用起來雖然十分方便,但是卻有一個問題,那就是這個消息框的按鈕是以英文顯示的。如果要生成一個含有中文顯示的按鈕就要求助于Tapplication的MessageBox函數(shù)了。這個函數(shù)的原形如下: 

---- function MessageBox(Text, Caption: Char; Flags: Longint): Integer


---- 在這個函數(shù)中,前兩項分別是顯示的提示信息和消息窗口的標(biāo)題,F(xiàn)lags是一個長整值,用來指定按鈕的個數(shù)及功能。熟悉Delphi的用戶可能會注意到,這個函數(shù)和Delphi 3所提供的同名函數(shù)有一點不同,那不是這個版本中字符串參數(shù)都以字符的形式給出,而不再要求將其轉(zhuǎn)化成指針。我們在使用時要注意加以區(qū)別。 

---- Application.MessageBox('需要存盤嗎?','提示信息',MB_OKCANCEL); 這個語句在運行時顯示的樣式如圖2 (略) 所示。 

---- 最后就這個函數(shù)的返回值作一些說明,實際上這個函數(shù)返回的是一個整型的數(shù)值,而這個數(shù)值被系統(tǒng)指定了具體的含義,比如:按下“確定”按鈕時返回的值是“1”,而其它按鈕的值列在表 1 中。 

---- 表 1 按鈕的意義及系統(tǒng)中對其定義的值 

按鈕的意義 按下此按鈕時函數(shù)返回的值
IDABORT 3
IDCANCEL  2
IDIGNORE     5
IDNO     7
IDOK     1
IDRETRY 4
IDYES 6

---- 6 控制窗口的尺寸 

---- 一般可以用窗口手柄來調(diào)整窗口的尺寸,但是也可以用Application的事件來調(diào)整。實現(xiàn)的方法是用以下兩個過程: 

Application.Minimized;
Application.Restore;

---- 前一個過程用來將程序的主窗口最小化,而后一個過程用來將最小化的窗口恢復(fù)到原來的尺寸。 

---- 7 鏈接聯(lián)機幫助文件 

---- Application的CurrentHelpFile屬性能夠指定當(dāng)前程序所用的聯(lián)機幫助文件的文件名。這個屬性經(jīng)常與另一個方法聯(lián)合在一起使用。舉例如下:  

Application.HelpFile := '聯(lián)機幫助文件名';
Application.HelpJump('聯(lián)機幫助文件的主題’)

---- 通過這一命令組合,我們就能使系統(tǒng)彈出一個顯示某主題的聯(lián)機幫助文件。
 

---- 8 在程序運行時動態(tài)地創(chuàng)建窗口 

---- 一般情況下,窗口是在設(shè)計時加入到工程項目中的,但是有時也需要我們在程序運行時動態(tài)地加入窗口,這就要用到Application 的CreateForm過程,舉例如下: 

Form3:Tform3; //聲明窗口類
Application.CreateForm(TForm3, Form3); //創(chuàng)建窗口

---- 9 結(jié)束程序 

---- 雖然我們可以用關(guān)閉主窗口的方法來關(guān)閉一個程序,但是更好的辦法是用Application的Terminate過程。它能夠起到更徹底地關(guān)閉程序的效果。 

---- 10 Destroy 屬性. 

---- 雖然Delphi提供了這一屬性,但是并不提倡使用它,如果要終結(jié)程序就要調(diào)用Terminate過程,而Destroy過程一般是用來在程序發(fā)生懸掛時來退出程序時才調(diào)用,有些類似Windows中的結(jié)束任務(wù)功能。它不僅能關(guān)閉程序?qū)嵗旧恚疫€能釋放程序所占用的資源,能夠達到將程序徹底清除出系統(tǒng)的目的。  


上一篇:老友歸來--delphi2005試用手記1

下一篇:delphi編寫你的第一個com程序

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
學(xué)習(xí)交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網(wǎng)友關(guān)注

主站蜘蛛池模板: 成人在线免费观看 | 日韩性精品 | 欧美综合色 | 久久e久久 | 免费观看一级特黄欧美大片 | www.91在线| 看亚洲一级毛片 | 成人精品国产 | 青草视频在线免费观看 | 精品日韩一区二区三区免费视频 | 欧美亚洲视频 | 黄色污污视频在线观看 | 成人综合在线观看 | 国产一区二区在线电影 | 国产乱码精品一区二区三区忘忧草 | 欧美成人久久 | 日韩欧美国产精品一区二区三区 | 97超碰在线播放 | 欧美性一级 | 男女羞羞羞视频午夜视频 | 日韩大片免费播放 | 精品成人一区二区 | 黄色高清网站 | 青娱乐在线播放 | av免费网站在线观看 | 欧美一二三四成人免费视频 | 91精品国产九九九久久久亚洲 | 日韩精品区 | 国产福利久久 | 久久激| 一区二区三区影院 | 欧美在线观看禁18 | 免费黄色毛片视频 | 欧美一级二级视频 | 国产成人av电影 | 日韩欧美一区二区在线 | 九九色综合 | 中文无吗| 电影91 | 精品毛片| 亚洲一区视频 |