【正文】 （ 7） Delphi將提示編譯并安裝包，單擊 Yes將新的包添加到組件面板。 （ 3）輸入要安裝組件的路徑和文件名，或使用 Browse按鈕來定位 相應(yīng) 的 單元。 存為窗體模板后 ， 無論何時(shí)需要使用該模板 ， 只需選擇File?New?Other菜單項(xiàng) ， 然后從 New Items對(duì)話框的 Forms屬性頁上選擇對(duì)應(yīng)模板即可 。 假設(shè)為模板窗體提供標(biāo)題 為： Mytemplate， 選擇要加入的屬性頁為 Forms。 2. 窗體模板是保存并添加到存儲(chǔ)庫的窗體 。最后按“ OK”按鈕，所有被選中的組件、事件處理程序、以及相關(guān)的代碼，都添加到了 VCL面板的指定的屬性頁上。 首先將組件添加到數(shù)據(jù)模塊或窗體 ， 設(shè)置它們的特性 ， 創(chuàng)建事件處理程序 ， 并編寫代碼 。 end。 Reset(F)。 {設(shè)置文件過濾器 } :=39。 var I: integer。 l OfPathMustExist：若該屬性為 True， 則鍵入的文件名必須是 正確的 ， 若不正確 ， 將會(huì)彈出一個(gè)警告框 。 （ 5） Title屬性 該屬性用來設(shè)置對(duì)話框的標(biāo)題 。 OpenDialog組件的主要屬性有： （ 1） Filters（ 過濾器 ） 屬性 : 該屬性可確定文件類型和在文件 類型下拉框中的順序 。在 Delphi中，可以通過 OleContainer組件將其他類型的對(duì)象鏈接或嵌入到窗體中。 end。 :=+28。// 單擊 “ 放大 ” ， 使定時(shí)器無效 begin :=false。 procedure (Sender: TObject)。 第 3章 窗體和常用組件 運(yùn)用定時(shí)器和圖片框設(shè)計(jì)一個(gè)簡(jiǎn)單的動(dòng)畫 【 例 】 運(yùn)用定時(shí)器和圖片框設(shè)計(jì)一個(gè)簡(jiǎn)單的動(dòng)畫 。該組件由系統(tǒng)時(shí)鐘控制，按指定的時(shí)間間隔執(zhí)行操作（即該 組件的 Timer事件）。 (* *) :=name+? ?+sex+? 出生于 ‘ + birth +chr(13)。 else sex:=39。 var name,sex,gl,birth,department:string。 Button: TUDBtnType)。 (* updown1組件的當(dāng)前值顯示在工齡文本框中 *) :=39。 程序功能： 輸入教師的基本信息 ， 在一個(gè) memo組件上綜合顯示 。 （ 5） 通常要編寫 TreeView組件的 OnChange事件的處理過程 ， 也就是在 樹上選擇了不同的條目后 ， 執(zhí)行該事件的處理過程 。 可以通過 TreeView組件 Items屬性的 Add、 AddChild、 Delete函數(shù)等實(shí)現(xiàn) 。 第 3章 窗體和常用組件 Win32類組件 使用 TreeView組件應(yīng)注意以下要點(diǎn)： （ 1） 樹的生成可在設(shè)計(jì)階段通過設(shè)置 Items屬性進(jìn)行 ， 方法是： 單擊 Items屬性右面的省略號(hào)按鈕 ， 在彈出的 TreeView Items Editor對(duì)話框中添加樹的項(xiàng) 。 （ 2） Items屬性 : 該屬性相當(dāng)于一個(gè)元素類型為 TreeNode類型的數(shù) 組 ， 存放了 TreeView組件的每一項(xiàng) ， 可以通過下標(biāo)單獨(dú)訪問 各項(xiàng) 。 具有 Date和 Time屬性。 ② Orientation屬性 值可以設(shè)置為 vertical或 horizontal來控制 軌跡條是垂直或水平方向。 在 btnquit1和 btnquit2的單擊事件代碼編輯器中均輸入代碼： close。 := +39。 :=39。籍貫 =39。籍貫 =39。 end。select * from 39。 then // 判斷是否輸入了姓名 :=39。 第 3章 窗體和常用組件 PageControl組件使用的示例 設(shè)計(jì)界面 按姓名查詢 “按姓名查詢”頁面上的組件的主要屬性 第 3章 窗體和常用組件 PageControl組件使用的示例 設(shè)計(jì)界面 按籍貫和系別查詢 “按籍貫和系別查詢”頁面上的組件的主要屬性 第 3章 窗體和常用組件 PageControl組件使用的示例 （ 7） 編寫代碼 。 將該頁面的 Caption屬性設(shè)置為 “ 按姓名查詢 ” 。 第 3章 窗體和常用組件 PageControl組件使用的示例 【 例 】 創(chuàng)建一個(gè)查詢界面 ， 利用 PageControl組件生成兩個(gè)頁面 ， 其中一個(gè)頁面是按姓名查詢的界面 ， 另一個(gè)頁面是按籍貫和系 別查詢的界面 。 如果單擊頁面位置 ， 則選中了當(dāng)前激活頁的 頁面 ， 這時(shí)按下 Delete鍵 ， 只刪除當(dāng)前選中的頁面 。 l PageControl組件最主要的事件是 Onchange事件 ， 當(dāng)用戶改變活 動(dòng)頁面時(shí)就觸發(fā)此事件 。 l ActivePage： 用于設(shè)置或返回 PageControl組件中當(dāng)前用戶選 中的頁標(biāo)簽 。 end。 add(1300,39。,clGreen)。一季度 39。 Editing Chart對(duì)話框 第 3章 窗體和常用組件 Chart組件使用的示例 （ 4） 單擊 Add按鈕 ， 打開 TeeChat Gallery對(duì)話框 ， 在此對(duì)話框中選 擇圖表的種類 。 第 3章 窗體和常用組件 Chart組件使用的示例 【 例 】 利用 Chart組件創(chuàng)建一個(gè)某年四個(gè)季度某企業(yè)產(chǎn)量的圖表 ， 演示 Chart組件的使用方法 。 Chart組件的主要屬性有： （ 1） MarginBottom， MarginLeft， MarginRight和 MarginTop屬性： 這 4個(gè)屬性分別用來設(shè)置圖形與下、左、右和上邊框的距離。 第 3章 窗體和常用組件 Image、 ScrollBox、 SpeedButton組件和 BitBtn組件使用的示例 雙擊 Bitquit按鈕 ， 在其代碼編輯器中輸入代碼 ： close。 begin .loadfromfile(39。c:\images\39。 l Tracking： 若該屬性設(shè)置為 True，則區(qū)域中的內(nèi)容會(huì) 隨著滾動(dòng)條的下拉而不斷翻滾，若該屬性設(shè)置為 False，則只能在用戶釋放鼠標(biāo)后才滾動(dòng)。 (4) Stretch屬性： 該屬性值若設(shè)置為 True，則圖像會(huì)自動(dòng)調(diào)整大小 以填滿 Image組件。 (5) Cursor屬性 : 可通過該屬性設(shè)置當(dāng)鼠標(biāo)指向快捷按鈕時(shí)鼠標(biāo)的形狀。 若將其設(shè)置為 True， 則表示處于選中狀態(tài) 。 第 3章 窗體和常用組件 BitBtn組件 （ 4） Layout屬性 ： 設(shè)置按鈕上圖像和文字的位置關(guān)系。 Delphi 7能夠?qū)?4個(gè)圖像同時(shí) 指定給 Glyph，在程序運(yùn)行時(shí)系統(tǒng)會(huì)根據(jù)按鈕所處的狀態(tài)顯 示其中的一個(gè)。 end。39。 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。 // 候選人添加到 hxrlist中 end。 39。39。 var k:integer。39。39。 age:=strtoint()。 第 3章 窗體和常用組件 Panel組件的例子 “輸入 ” 按鈕對(duì)應(yīng)代碼： procedure (Sender: TObject)。 ： procedure (Sender: TObject)。 count:integer。 程序中定義 一個(gè)全局記錄型數(shù)組 candidates存放候選人信息 ， 再定義一個(gè)用于 統(tǒng)計(jì)候選人數(shù)的變量 i。 程序功能是： （ 1） 輸入候選人的基本信息 。 動(dòng)態(tài)增加新項(xiàng)：(“新項(xiàng)名 ” )； 第 3章 窗體和常用組件 其他標(biāo)準(zhǔn)類組件 1. Panel組件 Panel組件一個(gè)可視化及靈活性都比較好的分組框組件，它是比組合框更大的容器，在上面可以放置各種組件或圖形，也將其稱為窗格。對(duì)于單選按鈕，通過組合框組合后，用戶只能選擇其中一個(gè)，而對(duì)于該組合框外的其他單選鈕的選擇與組合框內(nèi)的選擇無關(guān)。 （ 5） Position屬性： 該屬性用于設(shè)置或返回小方塊在滾動(dòng)條中當(dāng) 前的位置，其取值范圍在 Max和 Min之間。 l sbVertical 滾動(dòng)條是垂直方向的。 第 3章 窗體和常用組件 基本控件的綜合例題 l Btnclose按鈕的 OnClick事件代碼： close。+department+39。+ jg+39。+xm+39。 := +39。女 39。 jg:= []。 第 3章 窗體和常用組件 基本控件的綜合例題 else begin xh:= 。) or (=39。 var xb,jg,department,xh,xm:string。39。 // 設(shè)置組合框的初始值 end。 (39。)。外語系 39。 begin // 為系別組合框添加選項(xiàng) (39。 l 清除所有條目： 。 l 向列表框中增加 條目 ： ( 39。 （ 2） ItemIndex屬性： 該屬性返回 ListBox中被選中項(xiàng)目的索引號(hào) ， 從 0 開始 ， 順次加 1。選定某個(gè)選項(xiàng)按鈕，將釋 放先前的選擇，所以稱其為單選按鈕。 l cbGrayed：表示復(fù)選框處于啟用且變灰狀態(tài) 。 第 3章 窗體和常用組件 CheckBox組件 復(fù)選框組件的主要屬性有： （ 1） Alignment屬性 ： 該屬性用于設(shè)置復(fù)選按鈕上文字的位置 ， 可取以下值： l taRightJustify：文字顯示在小方框的右邊 l taLeftJustify：文字顯示在小方框的左邊 （ 2） Enabled屬性 ： 控制該復(fù)選框是否可用 。 （ 3） Default屬性： Default屬性用于設(shè)置默認(rèn)按鈕 。 第 3章 窗體和常用組件 Button組件 按鈕組件主要屬性有： （ 1） Caption屬性： 用來設(shè)置 Button組件上顯示的文字。 第 3章 窗體和常用組件 l 雙擊 “ 退出 ” 按鈕 ， 在編輯區(qū)中輸入該按鈕的 OnClick事件代碼： close。口令錯(cuò)誤 ， 請(qǐng)重新輸入 39。歡迎使用教師管理系統(tǒng) 39。 // 判斷所輸入的用戶名和口令是否正確 ， 以決定 “ wele”窗體上內(nèi)容 。 l 定義兩個(gè) unit級(jí)符號(hào)常量： const username=39。 Edit組件的其他常用屬性 第 3章 窗體和常用組件 事件 : 最常用的事件（也是默認(rèn)事件）為 OnChange，一旦 Edit 組件中的文本 內(nèi)容發(fā)生改變，就會(huì)觸發(fā) OnChange事件。 （ 3） PasswordChar屬性： 將用戶輸入的所有字符以同一 個(gè)字符顯示。 Edit Tab Order對(duì)話框 第 3章 窗體和常用組件