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