【文章內(nèi)容簡(jiǎn)介】 :=39。39。 for k:=1 to i do begin :=39。 39。+ +candidates[k].name+39。 39。 .add(candidates[k].name)。 // 候選人添加到 hxrlist中 end。 end。 第 3章 窗體和常用組件 Panel組件的例子 hxrlistChange過程中的代碼： procedure (Sender: TObject)。 var k:integer。 begin for k:=1 to i do // 根據(jù)在 hxrlist中的選擇 ， 被選中者的 count(票數(shù)加 1) if trim( )=candidates[k].name then candidates[k].count:=candidates[k].count+1。 :=39。39。 for k:=1 to i do // 在 labresult上顯示當(dāng)前的選票情況 :=39。39。++39。39。+inttostr (candidates[k].count)。 end。 第 3章 窗體和常用組件 Panel組件的例子 運(yùn)行程序，輸入各候選人，所有侯選人的信息存放在 candidates數(shù)組中；在 hxrlist選擇候選人，實(shí)時(shí)顯示得票情況。 運(yùn)行結(jié)果 第 3章 窗體和常用組件 附加類組件 Delphi 7有一組功能強(qiáng)大的附加類控件，利用它們，可以很方便地優(yōu)化界面設(shè)計(jì)，增強(qiáng)應(yīng)用程序的功能，方便程序員進(jìn)行各種程序設(shè)計(jì)。 附加類組件在組件面板上的位置 附加類組件 第 3章 窗體和常用組件 BitBtn組件 位圖按鈕組件的主要屬性有： （ 1） Glyph屬性： 選定按鈕的圖像。 Delphi 7能夠?qū)?4個(gè)圖像同時(shí) 指定給 Glyph，在程序運(yùn)行時(shí)系統(tǒng)會(huì)根據(jù)按鈕所處的狀態(tài)顯 示其中的一個(gè)。具體約定是： ● 第一個(gè)圖像表示按鈕處于未被選擇的狀態(tài)； ● 第二個(gè)圖像表示按鈕當(dāng)前不能使用； ● 第三個(gè)圖像表示用戶正單擊該按鈕； ● 第四個(gè)圖像表示按鈕被單擊且保持按下狀態(tài)。 （ 2） Kind屬性： 設(shè)置按鈕上圖像的種類 。 （ 3） NumGlyphs屬性： 指明該位圖按鈕使用圖形的個(gè)數(shù) ， 取值為 1~4之間的一個(gè)整數(shù) 。 第 3章 窗體和常用組件 BitBtn組件 （ 4） Layout屬性 ： 設(shè)置按鈕上圖像和文字的位置關(guān)系。 含義如下： l blGlyphLeft：圖像顯示在按鈕的左部 l blGlyphRight：圖像顯示在按鈕的右部 l blGlyphTop：圖像顯示在按鈕的上部 l blGlyPhBottom：圖像顯示在按鈕的下部 （ 5） Spacing屬性 ： Spacing屬性用來設(shè)置按鈕上圖像和文字的距 離 ， 它的默認(rèn)值是 4。 當(dāng)它為 1時(shí) ， 表示文字顯示在圖像與按鈕邊界 的中間 。 第 3章 窗體和常用組件 SpeedButton組件 快捷按鈕組件的主要屬性有： (1) Down屬性： 設(shè)置按鈕的狀態(tài) 。 若將其設(shè)置為 True， 則表示處于選中狀態(tài) 。 (2) Flat屬性： 該屬性值設(shè)置為 True， 則按鈕在非選中狀態(tài)下沒有邊框 ， 只有在選中狀態(tài)下才有邊框 。 (3) GroupIndex屬性： 當(dāng)用戶需要將幾個(gè)快捷按鈕合成一組時(shí) ， 可通過該屬性來設(shè)置 。 (4) AllowAllup屬性： 有些菜單同時(shí)有幾個(gè)快捷按鈕可供選擇，若將 AllowAllup屬性設(shè)置為 True，則表示所有按鈕都可以是彈起狀態(tài)，若設(shè)置為 False，則表示至 少有一個(gè)不能 彈起。 (5) Cursor屬性 : 可通過該屬性設(shè)置當(dāng)鼠標(biāo)指向快捷按鈕時(shí)鼠標(biāo)的形狀。 第 3章 窗體和常用組件 Image組件 圖片框組件的主要屬性有： (1) Picture屬性： 通過設(shè)置該屬性可在設(shè)計(jì)階段預(yù)先裝入一個(gè)圖形文 件，文件類型為 .bmp、 .jpg、 .jpeg、 .wmf、 .emf和 .ico等。在運(yùn)行 期間，則可通過 LoadFromFile函數(shù)動(dòng)態(tài)地裝入位圖 (2) Transparent屬性： 該屬性用來設(shè)置圖像是否透明，為 True，則圖像 是透明的，該 屬性只適用于 BMP格式的文件。 (3) IncrementalDisplay屬性： 在裝入大型壓縮圖片的時(shí)，若將該屬性 設(shè)置為 True則在裝入圖片的時(shí)，將看到圖像被逐漸畫出來的過程； 若設(shè)置為 False，則只能在整個(gè)圖像都調(diào)出來后才顯示出來。 (4) Stretch屬性： 該屬性值若設(shè)置為 True，則圖像會(huì)自動(dòng)調(diào)整大小 以填滿 Image組件。 第 3章 窗體和常用組件 ScrollBox組件 滾動(dòng)條組件的主要屬性有： (1) AutoScroll屬性 ： 若將該屬性設(shè)置為 True，則滾動(dòng)條會(huì)在需要 時(shí)自動(dòng)加上，不需要的時(shí)候自動(dòng)隱去。 (2) HorzScrollBar和 VerScroll屬性 ： 若 AutoScroll屬性值設(shè)置為 False， 則必須修改 HorzScrollBar或 VerScroll屬性才能獲得滾動(dòng)條，雙擊它 們前面的“ +”號(hào)，顯示其子屬性， 主要子屬性有： l Position： 該屬性用來設(shè)置滾動(dòng)條中小方塊的位置。 l Increment： 該屬性用來設(shè)置用戶單擊滾動(dòng)條兩端箭頭 時(shí)滾動(dòng)條滾動(dòng)的距離，默認(rèn)值為 8。 l Tracking： 若該屬性設(shè)置為 True，則區(qū)域中的內(nèi)容會(huì) 隨著滾動(dòng)條的下拉而不斷翻滾，若該屬性設(shè)置為 False，則只能在用戶釋放鼠標(biāo)后才滾動(dòng)。 第 3章 窗體和常用組件 Image、 ScrollBox、 SpeedButton組件和 BitBtn組件使用的示例 （ 1） 窗體設(shè)置 （ 2） 組件屬性設(shè)置 第 3章 窗體和常用組件 Image、 ScrollBox、 SpeedButton組件和 BitBtn組件使用的示例 （ 3） 編寫程序代碼 。 編寫對(duì) Picture1組件和 Picture2按鈕的事件處理 代碼 ， 程序代碼如下： // 當(dāng)單擊 Picture2按鈕時(shí)在圖像中裝入圖像 ： procedure TForm1. Picture1Click(Sender: TObject)。 begin .loadfromfile(39。c:\images\39。 ) 。 end。 // 當(dāng)單擊 Picture2按鈕時(shí) ， 在圖像中裝入圖像 Coffee ： procedure TForm1. Picture1Click(Sender: TObject)。 begin .loadfromfile(39。c:\images\39。 ) 。 end。 第 3章 窗體和常用組件 Image、 ScrollBox、 SpeedButton組件和 BitBtn組件使用的示例 雙擊 Bitquit按鈕 ， 在其代碼編輯器中輸入代碼 ： close。 (4) 運(yùn)行程序。 單擊 Picture1按鈕時(shí)， Image1組件顯示c:\images\， 單擊 Picture2組件時(shí)， Image1組件顯示c:\images\ 文件中的圖像。 第 3章 窗體和常用組件 Chart組件 Chart組件是用來創(chuàng)建圖表的工具，利用它可以方便地創(chuàng)建出各式各樣的圖表。 Chart組件的主要屬性有： （ 1） MarginBottom， MarginLeft， MarginRight和 MarginTop屬性： 這 4個(gè)屬性分別用來設(shè)置圖形與下、左、右和上邊框的距離。 （ 2） View 3D屬性： 若該屬性設(shè)置為 True， 則圖形顯示為立體狀的 。 （ 3） AllowZoom屬性： 該屬性用來設(shè)置在運(yùn)行時(shí)是否可以拖動(dòng)圖表 以改變形狀。若設(shè)置為 True，則表示可以拖動(dòng)鼠標(biāo)以改變圖表 形狀和大小。 第 3章 窗體和常用組件 Chart組件使用的示例 【 例 】 利用 Chart組件創(chuàng)建一個(gè)某年四個(gè)季度某企業(yè)產(chǎn)量的圖表 ， 演示 Chart組件的使用方法 。 （ 1） 選擇 File?New?Project命令 ， 新建一個(gè)項(xiàng)目 。 （ 2） 向新建的窗體中加入 Chart組件 。 （ 3） 鼠標(biāo)右擊 Chart組件 ， 在彈出的快捷菜單中選擇 Edit Chart命令 ， 打開 Editing Chart對(duì)話框 。 Editing Chart對(duì)話框 第 3章 窗體和常用組件 Chart組件使用的示例 （ 4） 單擊 Add按鈕 ， 打開 TeeChat Gallery對(duì)話框 ， 在此對(duì)話框中選 擇圖表的種類 。 選中 Bar類型 ， 按 “ OK”按鈕返回到 Editing Chart 對(duì)話框 。 （ 5） 在窗體中添加兩個(gè) BitBtn組件 ， BitBtn1的 Caption屬性為“ 圖 表 ” ， BitBtn2的 Caption屬性為 “ 退出 ” ， 在 BitBtn1的OnClick 事件中添加代碼： 第 3章 窗體和常用組件 Chart組件使用的示例 procedure (Sender: TObject)。 begin with Series1 do begin add(1000,39。一季度 39。,clRed)。 add(1200,39。二季度 39。,clGreen)。 add(1100,39。三季度 39。,clBlue)。 add(1300,39。四季度 39。,clYellow)。 end。 end。 （ 6）運(yùn)行程序 運(yùn)行結(jié)果 第 3章 窗體和常用組件 附加類組件列表 第 3章 窗體和常用組件 附加類組件列表 第 3章 窗體和常用組件 Win32類組件和 System類組件 Win32類組件和 System類組件分別位于組件面板的 Win32選項(xiàng)卡和 System選項(xiàng)卡上 Win32類組件在組件面板上的位置 System類組件在組件面板上的位置 第 3章 窗體和常用組件 Win32類組件 1. PageControl組件 為擴(kuò)展應(yīng)用程序的用戶界面，增加窗體的信息容量，通?？梢圆捎梅猪摰男问絹碓O(shè)計(jì)窗體。 PageControl組件為分頁組件，是一個(gè)可以包含多個(gè)頁面（也稱選項(xiàng)卡）的容器組件，其中每個(gè)頁面都可以包含各種組件。 PageControl組件的主要屬性有： l PageCount： 該屬性用于設(shè)置 PageControl組件中所包含的頁 的數(shù)目。 l ActivePage： 用于設(shè)置或返回 PageControl組件中當(dāng)前用戶選 中的頁標(biāo)簽 。 l ActivePageindex： 該屬性用于設(shè)置或返回 PageControl組件中 當(dāng)前用戶選中的頁號(hào) 。 頁的編號(hào)從 0開始 。 l PageIndex： 每一頁的索引值 。 l PageControl組件最主要的事件是 Onchange事件 ， 當(dāng)用戶改變活