Delphi程序的設(shè)計(jì)及實(shí)驗(yàn)指導(dǎo)第6章

Delphi7程序設(shè)計(jì)與實(shí)驗(yàn)指導(dǎo).第六章窗體設(shè)計(jì)前面講述的組件和菜單的設(shè)計(jì)都是在窗體中進(jìn)行的。在Delphi中，窗體和組件是創(chuàng)建Delphi應(yīng)用程序的最基本的組成部分。在某種意義上說，窗體就是窗口〔Window）。目前，大部分的應(yīng)用程序都是通過窗體上的文字、圖像、按鈕以及菜單等來進(jìn)行交互的，Delphi是通過在窗體中添加相應(yīng)的組件來實(shí)現(xiàn)多種多樣的功能。因而，窗體的設(shè)計(jì)實(shí)際上就是往窗體中添加組件的過程。本章主要介紹Delphi中窗體設(shè)計(jì)的方法。.6.1創(chuàng)建窗體在Delphi的應(yīng)用程序的開發(fā)過程中，創(chuàng)建窗體是程序設(shè)計(jì)的第一步。在Delphi7的集成開發(fā)環(huán)境中，選擇主菜單的File→New→Application，即可新建一個(gè)應(yīng)用程序，這時(shí)系統(tǒng)會(huì)自動(dòng)產(chǎn)生一個(gè)窗體，默認(rèn)名為Form1。如果需要再往應(yīng)用程序中添加新的窗體，可利用以下方法來實(shí)現(xiàn)：l

選擇File→New→Form；l

單擊“NewForm〞按鈕。6.1.1TForm組件1．用處TFrom組件是Delphi應(yīng)用程序的基礎(chǔ)。該組件為應(yīng)用提供了一個(gè)設(shè)計(jì)平臺(tái)，是Delphi程序開發(fā)的中心。當(dāng)創(chuàng)建一個(gè)新的工程，Delphi將自動(dòng)地建立一個(gè)默認(rèn)的空白窗體，這個(gè)空白的窗體就是TFrom組件的一個(gè)實(shí)例。.6.1創(chuàng)建窗體2．主要屬性(1)Active屬性：該屬性決定窗體是否為活動(dòng)窗體。如果該屬性為true，則窗體成為活動(dòng)窗體。(2)ActiveMDIChild屬性：該屬性為只讀運(yùn)行屬性，用來在多文檔的應(yīng)用程序中指定擁有輸入焦點(diǎn)的MDI子窗口。(3)AutoScroll屬性：該屬性用來設(shè)置在窗體上是否增加滾動(dòng)條。(4)BorderIcons屬性：該屬性用來定義出現(xiàn)在窗口標(biāo)題欄中的按鈕，其取值有四種：biSystemMenu〔包含系統(tǒng)菜單）、biMinimize〔包含最小化按鈕）、biMaximize〔包含最大化按鈕〕和BiHelp〔包含幫助按鈕）。.6.1創(chuàng)建窗體(5)BorderStyle屬性：該屬性用來定義窗體的邊框形式，其取值有6種：bsDialog〔對(duì)話框邊框）、bsSingle〔單線邊框）、bsNone〔無邊框）、bsSizeable〔標(biāo)準(zhǔn)邊框）、bsSizeToolWin〔具有小標(biāo)題的標(biāo)準(zhǔn)邊框）、bsSizeWindow〔具有小標(biāo)題的固定邊框）。注意：不能將MDI子窗體的邊框設(shè)置成bsDialog和bsNone。(6)Caption屬性：該屬性用來設(shè)置窗體標(biāo)題欄上的標(biāo)題，默認(rèn)值為Form1。(7)Color屬性：該屬性用來設(shè)置窗體的背景顏色。(8)Font屬性：該屬性用來設(shè)置窗體中文字的字體、顏色和字號(hào)等。(9)FormStyle屬性：該屬性用來定義窗體風(fēng)格，默認(rèn)值為fsNormal，其取值有四種：fsNormal〔普通窗口）、fsMDIChild〔MDI子窗口）、fsMDIForm〔MDI父窗口）、fsStayOnTop〔窗體始終顯示在其他窗口之上）。.6.1創(chuàng)建窗體(10)Handle屬性：該屬性為訪問窗口提供了一個(gè)句柄。使用該句柄，可以調(diào)用WindowsAPI函數(shù)來操作窗口。(11)Icon屬性：該屬性用來指定標(biāo)題欄中顯示的圖標(biāo)。(12)Menu屬性：該屬性可以定義窗體的菜單。系統(tǒng)在該菜單目錄下添加各自打開的子窗口名稱，使用這些名稱，可以選擇某個(gè)子窗口。如果用戶希望在不同的情況下顯示不同的菜單項(xiàng)目，只需要將Menu屬性設(shè)置成要顯示的菜單即可。(13)PopupMenu屬性：該屬性指出快捷菜單的名字。當(dāng)該窗體被激活后，右擊將顯示一個(gè)和菜單名稱相一致的快捷菜單。要顯示菜單，用戶必須將該菜單的AutoPopup屬性設(shè)置成true。.6.1創(chuàng)建窗體(14)Position屬性：該屬性用來描述窗體第一次顯示時(shí)的位置和尺寸，該屬性的取值和含義見表6-1。(15)WindowState屬性：該屬性定義了窗口的初始化狀態(tài)，決定窗口在第一次顯示時(shí)是以普通形式〔wsNormal）、最大化〔wsMaximized〕還是最小化〔wsMinimized〕顯示，其默認(rèn)值為wsNormal。.6.1創(chuàng)建窗體6.1.2選擇、放置和編輯組件窗體的設(shè)計(jì)實(shí)際上是往窗體中添加組件的過程，如何選擇、放置、編輯組件是窗體設(shè)計(jì)的主要內(nèi)容。

1．選擇和放置組件當(dāng)創(chuàng)建了一個(gè)空白的窗體后，接下來就要在組件面板上選擇—個(gè)組件并將它放置在窗體內(nèi)，通常有兩種方法：(1)用鼠標(biāo)雙擊組件面板上的一個(gè)組件圖標(biāo)，Delphi則以默認(rèn)的大小把它放在窗體的中間。(2)單擊一個(gè)組件圖標(biāo)，選中該組件，再在窗體上想放置組件的位置的左上角單擊一下，Delphi以默認(rèn)大小將它放置在那里，然后根據(jù)情況改變組件的位置和大小。.6.1創(chuàng)建窗體【例6-1】在窗體內(nèi)放入一個(gè)標(biāo)簽、三個(gè)復(fù)選框和兩個(gè)命令按鈕，窗體界面如圖6-3所示。

圖6-3初始窗體設(shè)計(jì).6.1創(chuàng)建窗體2．編輯組件要編輯、調(diào)整某一個(gè)組件，就首先應(yīng)該用鼠標(biāo)選中該組件。有時(shí)某一個(gè)組件被另一個(gè)組件完全覆蓋住了，要用鼠標(biāo)單擊它很困難，可以選中處于前面的組件，右擊窗體，在快捷菜單上選擇Control→SendtoBack命令，就可以把后面的組件調(diào)到前面來，或者可以直接在對(duì)象查看器上選擇組件。有時(shí)，需要同時(shí)選中多個(gè)組件，將它們作為一個(gè)整體來對(duì)待，移動(dòng)時(shí)同時(shí)移動(dòng)，復(fù)制時(shí)同時(shí)復(fù)制。有兩種方法：l

按住鼠標(biāo)并拖動(dòng)，出現(xiàn)一個(gè)方框，將想要選擇的組件都包括在方框里然后松開鼠標(biāo)。l

按住Shift鍵，用鼠標(biāo)單擊各個(gè)想要選擇的組件。.6.1創(chuàng)建窗體在選中了要進(jìn)行編輯的組件之后，就可以進(jìn)行編輯了。(1)改變位置和大小選中組件，將鼠標(biāo)箭頭放在組件周圍八個(gè)小方塊的某個(gè)方塊上，按住鼠標(biāo)并拖動(dòng)就可以改變形狀和大小。(2)對(duì)齊組件同時(shí)選中要對(duì)齊的幾個(gè)組件，然后選擇Edit菜單下的Align命令，或者選擇快捷菜單上的Align命令，用上述方法調(diào)整圖6-3所示的窗體，最后得到如圖6-5所示的對(duì)齊后的窗體。.6.1創(chuàng)建窗體圖6-5對(duì)齊后的窗體4．鎖定組件在窗體大體被設(shè)計(jì)好了之后，為了確保各組件的位置不會(huì)因?yàn)椴恍⌒牡牟僮鞫桓膭?dòng)，可以用Edit菜單中的LockControls命令來鎖定各個(gè)組件的位置。在鎖定后，窗體上各組件不可以再被移動(dòng)或者改變大小，但可以再次使用這個(gè)命令來解除鎖定。.6.1創(chuàng)建窗體【例6-2】設(shè)計(jì)一個(gè)程序，完成以下功能：選擇一種顏色，單擊“確定〞按鈕表示設(shè)置為這種顏色，并在“顯示顏色〞的窗體中顯示結(jié)果；單擊“退出〞按鈕關(guān)閉窗體。窗體界面設(shè)計(jì)如圖6-6、圖6-7所示。圖6-7顯示顏色窗體界面圖6-7顯示顏色窗體界面.6.1創(chuàng)建窗體(1)新建工程。選擇File→New→Application，在默認(rèn)窗體上添加一個(gè)TLabel組件，三個(gè)TRadioButton組件和兩個(gè)TButton組件。(2)窗體及組件的屬性設(shè)置。按書上表6-2設(shè)置窗體及組件的屬性值。(3)添加顯示窗體。選擇File→New→Form，在新的窗體上添加兩個(gè)TLabel組件。(4)新的窗體及組件的屬性設(shè)置。按表6-3設(shè)置窗體及組件的屬性值。(5)編寫代碼。.6.2多頁面窗體6.2.1多頁面窗體的概念在一個(gè)應(yīng)用程序運(yùn)行時(shí)，打開一個(gè)主窗體，這個(gè)主窗體又由至少兩個(gè)文檔窗體界面組成，而且這些文檔窗體的外觀基本一致，具有共同的系統(tǒng)菜單，每個(gè)文檔窗體彼此之間可以通過單擊文檔窗體進(jìn)行相互切換。在Delphi中把使用這種技術(shù)的窗體稱作多頁面窗體。6.2.2TPageControl組件1．用處TPageControl頁面組件位于組件面板的Win32選項(xiàng)卡上〔如圖4-4），用來制作筆記本式的頁面標(biāo)簽，是個(gè)可多頁重疊的顯示頁面，用戶可通過單擊組件頂部〔或底部〕的頁面標(biāo)簽進(jìn)行頁面之間的切換。.6.2多頁面窗體2．主要屬性(1)ActivePage屬性：該屬性用來指定組件的當(dāng)前顯示頁面，選擇時(shí)用戶只需單擊相關(guān)的頁面標(biāo)簽，但一次只能選擇一頁，即組件的當(dāng)前頁只能有一個(gè)。(2)MultiLine屬性：該屬性決定頁面標(biāo)簽如何顯示。設(shè)置為true時(shí)，如果組件上的多個(gè)頁面在一行顯示不下，那么頁標(biāo)簽將顯示成多行。設(shè)置為false時(shí)，頁標(biāo)簽只能顯示一行，如果一行顯示不下，將會(huì)增加一個(gè)滾動(dòng)條，看不見的頁面通過滾動(dòng)條翻閱。(3)Pages屬性：該屬性含有組件的所有頁面。通過該屬性及下標(biāo)可訪問組件的特定頁面，第1頁的下標(biāo)為0，第2頁的下標(biāo)為1，依此類推，組件上的每一頁都是一個(gè)TTabSheet對(duì)象。.6.2多頁面窗體(4)PageCount屬性：該屬性確定在Pages屬性中包含的頁面數(shù)。如果MultiLine屬性設(shè)置為false，那么對(duì)用戶來說并非所有的頁面都是可視的。(5)TabPosition屬性：該屬性決定標(biāo)簽在組件的上方還是下方。3．主要方法(1)DoAddDockClient方法：如果在運(yùn)行時(shí)向組件增加一個(gè)新頁面，那么將調(diào)用該方法以完成各頁面的必要調(diào)整。(2)FindNextPage方法：該方法返回在TPageControl組件中指定頁面的前一頁或下一頁。(3)SelectNextPage方法：該方法用來改變當(dāng)前頁面之前或之后的頁面為活動(dòng)頁面。.6.2多頁面窗體6.2.3多頁面窗體的設(shè)計(jì)有四種方法可以建立標(biāo)準(zhǔn)的多頁面窗體，它們分別是：l

使用Win32的標(biāo)簽組件TTabControl。l

使用Win32的頁面組件TPageControl。l

使用TNoteBook和TTabSet組件。l

使用TAbbedNotebook組件。1．創(chuàng)建TTabSheetTPageControl中包含了TTabSheet，而TTabSheet還可以包含其他的組件。TPageControl創(chuàng)建TTabSheet有如下兩種方法：.6.2多頁面窗體(1)在設(shè)計(jì)時(shí)創(chuàng)建TTabSheet。在窗體中添加TPageControl組件，用鼠標(biāo)右擊TPageControl組件，彈出快捷菜單，在彈出的快捷菜單中選擇“NewPage〞命令，為TPageControl組件添加TTabSheet。(2)在程序運(yùn)行時(shí)動(dòng)態(tài)創(chuàng)建。首先創(chuàng)建TTabSheet組件，然后給它的PageControl屬性賦值。詳細(xì)過程見例6-3。2．頁面間的切換為了在不同的頁面間切換，可以單擊要選擇的頁面，或者選擇快捷菜單中的NextPage命令或PreviousPage命令在各個(gè)頁面間瀏覽，也可以通過設(shè)置TPageControl的ActivePage屬性來實(shí)現(xiàn)。.6.2多頁面窗體3．設(shè)置頁面的屬性設(shè)置頁面的相關(guān)屬性，如頁面標(biāo)簽將顯示成多行，還是只顯示一行，設(shè)置每一個(gè)標(biāo)簽的標(biāo)題等等。4．設(shè)置頁面的界面每一個(gè)頁面的界面具有相同的系統(tǒng)菜單，但是每一個(gè)標(biāo)簽包含的組件不相同。因而，根據(jù)情況設(shè)置每一個(gè)頁面的界面，添加相應(yīng)的組件，設(shè)置組件的屬性?！纠?-3】在信息項(xiàng)目較多的情況下，使用TPageControl組件來安排，如圖6-10所示，將人事管理系統(tǒng)中的部門管理模塊、職工管理模塊、信息查詢模塊安排到3個(gè)TPageControl頁上。(1)

按照?qǐng)D6-11所示設(shè)計(jì)界面。(2)

設(shè)計(jì)各頁面的組件，如圖6-12所示。.6.2多頁面窗體圖6-11設(shè)計(jì)界面圖6-12設(shè)計(jì)窗體(3)設(shè)置活動(dòng)頁面為“職工管理模塊〞頁面。.6.3分割窗體6.3.1TSplitter組件TSplitter分割條組件位于組件面板的Additional頁面中，用于放在窗體上兩個(gè)相鄰的組件之間，允許用戶在運(yùn)行時(shí)改變組件的大小，與分割條相鄰組件的一邊與窗體對(duì)齊并填滿整個(gè)客戶區(qū)，分割條的Alignment屬性與它相鄰的空間的屬性相同。Align屬性為alTop，創(chuàng)建一個(gè)水平分割條，Align屬性為alLeft，創(chuàng)建一個(gè)垂直分割條。.6.3分割窗體首先創(chuàng)建新的窗體如圖6-14所示，在窗體中加入一個(gè)TMemo組件，將它的Align屬性設(shè)為a1Left；添加TSplitter組件，設(shè)置它的Align屬性為alLeft，設(shè)置Beveld屬性為true；在分割條右邊的窗體中加入一個(gè)TImage組件，設(shè)置其Align屬性為alClient，并為該組件添加圖像，設(shè)置AutoSize屬性為true，Center屬性為true，Stretch屬性為true。然后選擇Run→Run運(yùn)行程序，當(dāng)鼠標(biāo)移動(dòng)到分割條上時(shí)，鼠標(biāo)就會(huì)改變形狀，用戶可以拖動(dòng)分割條改變窗體。如圖6-15所示是垂直分割后的效果。分割條還可以用于水平分割，其方法與垂直分割相似，只需將Align屬性設(shè)置為alTop即可。運(yùn)行結(jié)果如圖6-16所示。.6.3分割窗體圖6-14窗體設(shè)計(jì)圖6-15垂直分割圖6-16水平分割.6.4使用模板生成窗體1．利用Delphi提供的窗體模板生成窗體選擇File→New→Other菜單命令，打開NewItems對(duì)話框，選擇Forms選項(xiàng)卡，如圖6-17所示。選擇某一個(gè)窗體模板，從對(duì)話框下方標(biāo)注為Copy、Inherit和Use的3個(gè)單選按鈕中選擇一種窗體模板使用方法，單擊OK按鈕就可以在當(dāng)前項(xiàng)目中創(chuàng)建一個(gè)新窗體。圖6-17選擇模板.6.4使用模板生成窗體Copy：使用這種方法，Delphi將把窗體模板的窗體文件和單元文件各復(fù)制一份，并以默認(rèn)的Formn.dfm和Unitn.pas來命名，將它們放在所建的項(xiàng)目中。Inherit使用這種方法，Delphi將以窗體模板所定義的類為基類，派生出一個(gè)新的窗體類，并把這個(gè)派生窗體的dfm文件和pas文件用默認(rèn)名放入項(xiàng)目中。Use使用這種方法，Delphi將在項(xiàng)目文件的Uses語句中聲明窗體模板的單元文件，這個(gè)窗體文件并沒有復(fù)制到所建的項(xiàng)目中，但是當(dāng)編譯項(xiàng)目時(shí)，Delphi將根據(jù)項(xiàng)目文件中的聲明，把窗體模板的文件一起編譯連接，雖然在所建的項(xiàng)目中沒有這些文件，但是仍可以在編輯窗口內(nèi)看見這個(gè)單元文件以及窗體。應(yīng)該注意的是，不要隨意改動(dòng)窗體和單元文件，這會(huì)影響到其他以后也要用到這個(gè)窗體模板的項(xiàng)目。.6.4使用模板生成窗體2．自定義窗體模板除了利用Delphi提供的窗體模板外，用戶還可以建立自己的窗體模板供以后使用。(1)創(chuàng)建窗體樣本。按照?qǐng)D6-19所示的窗體創(chuàng)建一個(gè)窗體樣本，用來實(shí)現(xiàn)一個(gè)多用戶軟件的用戶登錄功能〔創(chuàng)建步驟見例4-1）。圖6-19窗體樣本.6.4使用模板生成窗體(2)在窗體樣本的窗體中，單擊鼠標(biāo)右鍵，彈出快捷菜單，使用窗體快捷菜單中AddtoRepository命令，打開如圖6-21所示的對(duì)話框，利用該對(duì)話框就可以用當(dāng)前窗體創(chuàng)建一個(gè)窗體模板，并將它放入對(duì)象庫中，供以后的項(xiàng)目使用。圖6-21AddToRepository對(duì)話框.6.4使用模板生成窗體(3)設(shè)置所創(chuàng)建窗體模板的屬性。在圖6-21所示的對(duì)話框左邊的Forms列表框中，選擇將要?jiǎng)?chuàng)建為模板的窗體名；在Title輸入框中輸入創(chuàng)建的窗體模板名稱〔如DengLu）；在Description輸入框中輸入關(guān)于模板的詳細(xì)說明，也可以不輸入；在Page輸入框中選擇所創(chuàng)建模板的類型，如Forms。另外，可以利用Browse…按鈕來選擇一個(gè)圖標(biāo)來代表新的窗體模板，若不選擇新圖標(biāo)，將使用按鈕左方的默認(rèn)窗體圖標(biāo)。單擊“Ok〞按鈕，在所彈出的確認(rèn)對(duì)話框中單擊“Yes〞按鈕，即可將窗體“登錄〞存儲(chǔ)為窗體模板。通過選擇File→New→Other菜單命令，打開NewItems對(duì)話框，選擇Forms選項(xiàng)卡，可以看到新增了一個(gè)“DengLu〞的窗體模板。.6.4使用模板生成窗體3．TFrame組件TFrame組件可以視為一種新的Form重用技術(shù)。使用TFrame組件可以將幾個(gè)組件封裝在一起，使用方法和普通組件的使用方法一樣。使用TFrame組件進(jìn)行組件封裝的步驟如下：(1)通過選擇File→New→Frame菜單命令項(xiàng)實(shí)現(xiàn)一個(gè)Frame。(2)在其上面放置各種組件，設(shè)置屬性和編寫事件處理代碼。(3)選擇File→Save菜單命令項(xiàng)，保存這個(gè)Frame窗體的單元文件。注意保存Frame單元文件時(shí)，最好是保存在同一個(gè)目錄下，且命名有意義，避免使用類似Unit1或者Project1之類的名字。.6.4使用模板生成窗體(4)Frame設(shè)計(jì)好后，在其上單擊右鍵后選擇AddToPalete菜單命令項(xiàng)，系統(tǒng)會(huì)彈出一個(gè)對(duì)話框，如圖6-23所示。在Componentname編輯框中輸入Frame的組件名；在下拉列標(biāo)表中選擇組件面板的選項(xiàng)卡；利用Change…按鈕選擇一個(gè)組件模板的圖標(biāo)。之后便可以像使用組件