【正文】 同頁(yè)面中 ， 可以加入不同的組件 。 如果單 擊標(biāo)簽 ， 則選中了整個(gè)組件 ， 同時(shí)設(shè)置當(dāng)前激活頁(yè) ， 這時(shí)按下 Delete 鍵 ， 會(huì)把整個(gè)組件刪除 。 第 3章 窗體和常用組件 Win32類(lèi)組件 使用 PageControl組件的時(shí)候應(yīng)注意： （ 1） 在該組件上單擊鼠標(biāo)右鍵 ， 將彈出快捷菜單 ， 在該菜單中選擇 New Page命令 ， 將會(huì)增加一個(gè)新的頁(yè)面 。 l PageIndex： 每一頁(yè)的索引值 。 l ActivePageindex： 該屬性用于設(shè)置或返回 PageControl組件中 當(dāng)前用戶選中的頁(yè)號(hào) 。 PageControl組件的主要屬性有： l PageCount： 該屬性用于設(shè)置 PageControl組件中所包含的頁(yè) 的數(shù)目。 （ 6）運(yùn)行程序 運(yùn)行結(jié)果 第 3章 窗體和常用組件 附加類(lèi)組件列表 第 3章 窗體和常用組件 附加類(lèi)組件列表 第 3章 窗體和常用組件 Win32類(lèi)組件和 System類(lèi)組件 Win32類(lèi)組件和 System類(lèi)組件分別位于組件面板的 Win32選項(xiàng)卡和 System選項(xiàng)卡上 Win32類(lèi)組件在組件面板上的位置 System類(lèi)組件在組件面板上的位置 第 3章 窗體和常用組件 Win32類(lèi)組件 1. PageControl組件 為擴(kuò)展應(yīng)用程序的用戶界面，增加窗體的信息容量，通?？梢圆捎梅猪?yè)的形式來(lái)設(shè)計(jì)窗體。 end。四季度 39。,clBlue)。 add(1100,39。二季度 39。,clRed)。 begin with Series1 do begin add(1000,39。 選中 Bar類(lèi)型 ， 按 “ OK”按鈕返回到 Editing Chart 對(duì)話框 。 （ 3） 鼠標(biāo)右擊 Chart組件 ， 在彈出的快捷菜單中選擇 Edit Chart命令 ， 打開(kāi) Editing Chart對(duì)話框 。 （ 1） 選擇 File?New?Project命令 ， 新建一個(gè)項(xiàng)目 。若設(shè)置為 True，則表示可以拖動(dòng)鼠標(biāo)以改變圖表 形狀和大小。 （ 2） View 3D屬性： 若該屬性設(shè)置為 True， 則圖形顯示為立體狀的 。 第 3章 窗體和常用組件 Chart組件 Chart組件是用來(lái)創(chuàng)建圖表的工具，利用它可以方便地創(chuàng)建出各式各樣的圖表。 (4) 運(yùn)行程序。 end。c:\images\39。 // 當(dāng)單擊 Picture2按鈕時(shí) ， 在圖像中裝入圖像 Coffee ： procedure TForm1. Picture1Click(Sender: TObject)。 ) 。 begin .loadfromfile(39。 第 3章 窗體和常用組件 Image、 ScrollBox、 SpeedButton組件和 BitBtn組件使用的示例 （ 1） 窗體設(shè)置 （ 2） 組件屬性設(shè)置 第 3章 窗體和常用組件 Image、 ScrollBox、 SpeedButton組件和 BitBtn組件使用的示例 （ 3） 編寫(xiě)程序代碼 。 l Increment： 該屬性用來(lái)設(shè)置用戶單擊滾動(dòng)條兩端箭頭 時(shí)滾動(dòng)條滾動(dòng)的距離，默認(rèn)值為 8。 第 3章 窗體和常用組件 ScrollBox組件 滾動(dòng)條組件的主要屬性有： (1) AutoScroll屬性 ： 若將該屬性設(shè)置為 True，則滾動(dòng)條會(huì)在需要 時(shí)自動(dòng)加上，不需要的時(shí)候自動(dòng)隱去。 (3) IncrementalDisplay屬性： 在裝入大型壓縮圖片的時(shí)，若將該屬性 設(shè)置為 True則在裝入圖片的時(shí)，將看到圖像被逐漸畫(huà)出來(lái)的過(guò)程； 若設(shè)置為 False，則只能在整個(gè)圖像都調(diào)出來(lái)后才顯示出來(lái)。 第 3章 窗體和常用組件 Image組件 圖片框組件的主要屬性有： (1) Picture屬性： 通過(guò)設(shè)置該屬性可在設(shè)計(jì)階段預(yù)先裝入一個(gè)圖形文 件，文件類(lèi)型為 .bmp、 .jpg、 .jpeg、 .wmf、 .emf和 .ico等。 (4) AllowAllup屬性： 有些菜單同時(shí)有幾個(gè)快捷按鈕可供選擇，若將 AllowAllup屬性設(shè)置為 True，則表示所有按鈕都可以是彈起狀態(tài)，若設(shè)置為 False，則表示至 少有一個(gè)不能 彈起。 (2) Flat屬性： 該屬性值設(shè)置為 True， 則按鈕在非選中狀態(tài)下沒(méi)有邊框 ， 只有在選中狀態(tài)下才有邊框 。 第 3章 窗體和常用組件 SpeedButton組件 快捷按鈕組件的主要屬性有： (1) Down屬性： 設(shè)置按鈕的狀態(tài) 。 含義如下： l blGlyphLeft：圖像顯示在按鈕的左部 l blGlyphRight：圖像顯示在按鈕的右部 l blGlyphTop：圖像顯示在按鈕的上部 l blGlyPhBottom：圖像顯示在按鈕的下部 （ 5） Spacing屬性 ： Spacing屬性用來(lái)設(shè)置按鈕上圖像和文字的距 離 ， 它的默認(rèn)值是 4。 （ 3） NumGlyphs屬性： 指明該位圖按鈕使用圖形的個(gè)數(shù) ， 取值為 1~4之間的一個(gè)整數(shù) 。具體約定是： ● 第一個(gè)圖像表示按鈕處于未被選擇的狀態(tài)； ● 第二個(gè)圖像表示按鈕當(dāng)前不能使用； ● 第三個(gè)圖像表示用戶正單擊該按鈕； ● 第四個(gè)圖像表示按鈕被單擊且保持按下?tīng)顟B(tài)。 附加類(lèi)組件在組件面板上的位置 附加類(lèi)組件 第 3章 窗體和常用組件 BitBtn組件 位圖按鈕組件的主要屬性有： （ 1） Glyph屬性： 選定按鈕的圖像。 第 3章 窗體和常用組件 Panel組件的例子 運(yùn)行程序，輸入各候選人，所有侯選人的信息存放在 candidates數(shù)組中；在 hxrlist選擇候選人，實(shí)時(shí)顯示得票情況。+inttostr (candidates[k].count)。++39。 for k:=1 to i do // 在 labresult上顯示當(dāng)前的選票情況 :=39。 :=39。 var k:integer。 end。 .add(candidates[k].name)。+ +candidates[k].name+39。 for k:=1 to i do begin :=39。 :=39。 // 可對(duì) panel2內(nèi)組件操作 ， 即開(kāi)始投票 :=39。 begin :=false。 第 3章 窗體和常用組件 Panel組件的例子 “投票 ” 按鈕對(duì)應(yīng)代碼： procedure (Sender: TObject)。 。 :=39。 // 用于輸入信息的各文本框置空 :=39。 :=39。 count:=0。 sex:=trim()。 begin i:=i+1。// 在未輸入候選人前 ， panel2內(nèi)的組件不可操作 end。 begin i:=0。 // 用來(lái)存放候選人信息 i:integer。 end。 age:integer。 窗體設(shè)計(jì)： 第 3章 窗體和常用組件 Panel組件的例子 窗體各組件的屬性 第 3章 窗體和常用組件 Panel組件的例子 程序代碼： type member=Record name:string。 將所有的候選人姓名添加到一列表中以供選擇 ， 根 據(jù)在列表框中的選擇情況 ， 統(tǒng)計(jì)選票并每人的得票數(shù) 。 （ 2） 在已輸入的候選人投票 ， 并統(tǒng)計(jì)各候選人的得票數(shù) 。 ActionList組件響應(yīng)的事件主要有 3個(gè)，分別是OnChange事件 OnExecute事件OnUpdate事件 第 3章 窗體和常用組件 Panel組件的例子 【 例 】 投票系統(tǒng) 。 2. ActionList組件 ActionList組件是一個(gè)各種組件所包含的操作列表類(lèi)。 例： Case Of 0：語(yǔ)句 1； // 選擇了第 1項(xiàng) 1：語(yǔ)句 2； // 選擇了第 2項(xiàng) 2：語(yǔ)句 3； // 選擇了第 3項(xiàng) … end。 第 3章 窗體和常用組件 RadioGroup組件 使用 RadioGroup組件可以快速生成一組單選按鈕，通過(guò)其 Items屬性，可預(yù)先設(shè)定單選按鈕；也可在運(yùn)行期間對(duì)該屬性進(jìn)行操作。 GroupBox組件最常用的場(chǎng)合，就是將多個(gè)單選鈕或多個(gè)復(fù)選框組合在一起。 第 3章 窗體和常用組件 GroupBox組件 GroupBox組件為標(biāo)準(zhǔn)的分組框組件。 （ 4） SmallChange： 該屬性用來(lái)設(shè)置當(dāng)用戶在滾動(dòng)條兩端的上下 箭頭時(shí)，滾動(dòng)條滾動(dòng)的距離。 （ 2） Max/Min屬性： 用來(lái)確定滾動(dòng)條表示數(shù)值的范圍。 l sbHorizontal 滾動(dòng)條是水平方向的。 // 關(guān)閉窗體 在文本框中分別輸入職工號(hào) 、 姓名 、 年齡 、 電話 ， 并選擇籍貫 、 系別和性別后 ， 按下 “ 確定 ” 按鈕 ， 按下 “ 取消 ” 按鈕則清除職工號(hào) 、 姓名和年齡 ， 按下 “ 退出 ” 按鈕 ， 則結(jié)束程序運(yùn)行 。 end。)39。,39。,39。,39。,39。,39。insert into 表名 values( 39。+chr(13)+chr(10)。 :=39。 else xb:=39。 if =true then xb:=39。 // 將 age department:= [] 。 xm:= 。學(xué)號(hào)和姓名均不能為空 39。39。39。 age:integer。 l “確定 ” 按鈕對(duì)應(yīng)代碼： // 根據(jù)輸入信息 ， 顯示對(duì)應(yīng)的 SQL語(yǔ)句 procedure (Sender: TObject)。 :=39。 :=39。 第 3章 窗體和常用組件 基本控件的綜合例題 l “取消 ” 按鈕對(duì)應(yīng)代碼： // 將職工號(hào) 、 姓名和年齡對(duì)應(yīng)的文本框置空 :=39。 :=?計(jì)算機(jī)系 ’ 。建筑系 39。)。 (39。數(shù)學(xué)系 39。)。 (39。計(jì)算機(jī)系 39。 (1) 窗體界面 第 3章 窗體和常用組件 基本控件的綜合例題 (2) 組件屬性設(shè)置 第 3章 窗體和常用組件 基本控件的綜合例題 (3) 編寫(xiě)程序代碼 l 雙擊窗體，在 FormCreate代碼編輯器中編寫(xiě)如下代碼 ： procedure (Sender: TObject)。 第 3章 窗體和常用組件 ListBox組件 ListBox組件的其他常用屬性 ： 第 3章 窗體和常用組件 ComboBox組件 組合框組件的特有屬性 : （ 1） Style屬性 （ 2） Text屬性 設(shè)置或返回編輯框上顯示出來(lái)的文字內(nèi)容，也可在程序中給該屬性 賦值，為該屬性賦值的語(yǔ)句如下： :=[0]。 l 刪除當(dāng)前選中的條目： ( ) 。增加