【正文】 :=1 to i do // 根據(jù)在 hxrlist中的選擇 ， 被選中者的 count(票數(shù)加 1) if trim( )=candidates[k].name then candidates[k].count:=candidates[k].count+1。 第 3章 窗體和常用組件 BitBtn組件 （ 4） Layout屬性 ： 設(shè)置按鈕上圖像和文字的位置關(guān)系。 l Tracking： 若該屬性設(shè)置為 True，則區(qū)域中的內(nèi)容會 隨著滾動條的下拉而不斷翻滾，若該屬性設(shè)置為 False，則只能在用戶釋放鼠標后才滾動。 Chart組件的主要屬性有： （ 1） MarginBottom， MarginLeft， MarginRight和 MarginTop屬性： 這 4個屬性分別用來設(shè)置圖形與下、左、右和上邊框的距離。,clGreen)。 l PageControl組件最主要的事件是 Onchange事件 ， 當用戶改變活 動頁面時就觸發(fā)此事件 。 第 3章 窗體和常用組件 PageControl組件使用的示例 設(shè)計界面 按姓名查詢 “按姓名查詢”頁面上的組件的主要屬性 第 3章 窗體和常用組件 PageControl組件使用的示例 設(shè)計界面 按籍貫和系別查詢 “按籍貫和系別查詢”頁面上的組件的主要屬性 第 3章 窗體和常用組件 PageControl組件使用的示例 （ 7） 編寫代碼 。籍貫 =39。 在 btnquit1和 btnquit2的單擊事件代碼編輯器中均輸入代碼： close。 第 3章 窗體和常用組件 Win32類組件 使用 TreeView組件應(yīng)注意以下要點： （ 1） 樹的生成可在設(shè)計階段通過設(shè)置 Items屬性進行 ， 方法是： 單擊 Items屬性右面的省略號按鈕 ， 在彈出的 TreeView Items Editor對話框中添加樹的項 。 (* updown1組件的當前值顯示在工齡文本框中 *) :=39。 (* *) :=name+? ?+sex+? 出生于 ‘ + birth +chr(13)。// 單擊 “ 放大 ” ， 使定時器無效 begin :=false。 OpenDialog組件的主要屬性有： （ 1） Filters（ 過濾器 ） 屬性 : 該屬性可確定文件類型和在文件 類型下拉框中的順序 。 {設(shè)置文件過濾器 } :=39。最后按“ OK”按鈕，所有被選中的組件、事件處理程序、以及相關(guān)的代碼，都添加到了 VCL面板的指定的屬性頁上。 （ 3）輸入要安裝組件的路徑和文件名，或使用 Browse按鈕來定位 相應(yīng) 的 單元。 存為窗體模板后 ， 無論何時需要使用該模板 ， 只需選擇File?New?Other菜單項 ， 然后從 New Items對話框的 Forms屬性頁上選擇對應(yīng)模板即可 。 首先將組件添加到數(shù)據(jù)模塊或窗體 ， 設(shè)置它們的特性 ， 創(chuàng)建事件處理程序 ， 并編寫代碼 。 var I: integer。在 Delphi中，可以通過 OleContainer組件將其他類型的對象鏈接或嵌入到窗體中。 procedure (Sender: TObject)。 else sex:=39。 程序功能： 輸入教師的基本信息 ， 在一個 memo組件上綜合顯示 。 （ 2） Items屬性 : 該屬性相當于一個元素類型為 TreeNode類型的數(shù) 組 ， 存放了 TreeView組件的每一項 ， 可以通過下標單獨訪問 各項 。 := +39。 end。 將該頁面的 Caption屬性設(shè)置為 “ 按姓名查詢 ” 。 l ActivePage： 用于設(shè)置或返回 PageControl組件中當前用戶選 中的頁標簽 。一季度 39。 第 3章 窗體和常用組件 Image、 ScrollBox、 SpeedButton組件和 BitBtn組件使用的示例 雙擊 Bitquit按鈕 ， 在其代碼編輯器中輸入代碼 ： close。 (4) Stretch屬性： 該屬性值若設(shè)置為 True，則圖像會自動調(diào)整大小 以填滿 Image組件。 Delphi 7能夠?qū)?4個圖像同時 指定給 Glyph，在程序運行時系統(tǒng)會根據(jù)按鈕所處的狀態(tài)顯 示其中的一個。 // 候選人添加到 hxrlist中 end。39。 ： procedure (Sender: TObject)。 動態(tài)增加新項：(“新項名 ” )； 第 3章 窗體和常用組件 其他標準類組件 1. Panel組件 Panel組件一個可視化及靈活性都比較好的分組框組件，它是比組合框更大的容器，在上面可以放置各種組件或圖形，也將其稱為窗格。 第 3章 窗體和常用組件 基本控件的綜合例題 l Btnclose按鈕的 OnClick事件代碼： close。 := +39。) or (=39。 (39。 l 清除所有條目： 。 l cbGrayed：表示復(fù)選框處于啟用且變灰狀態(tài) 。 第 3章 窗體和常用組件 l 雙擊 “ 退出 ” 按鈕 ， 在編輯區(qū)中輸入該按鈕的 OnClick事件代碼： close。 l 定義兩個 unit級符號常量： const username=39。 第 3章 窗體和常用組件 編輯組件對象 方法 3：統(tǒng)一操作 ●先選中幾個組件，然后通過主菜單 Edit?Size...命令，將打開 Size 對話框，在 Size對話框中選擇寬度和高度的有關(guān)設(shè)置。 ① 按下 Shift 鍵的同時 ， 利用鼠標左鍵單擊各個組件 。 第 3章 窗體和常用組件 新建應(yīng)用程序 第 3章 窗體和常用組件 1. Name 用來標識工程中的窗體。 3. 在組件欄中雙擊組件，則被雙擊的組件會自動添加到當前默認的窗口或容器組件中。 將鼠標移動到某個黑點上 ， 鼠標形狀將變成雙向箭頭 ， 此時可以按 下鼠標左鍵進行拖動 ， 即可改變組件的大小 。 【 例 】 用戶身份驗證程序 。 end 。 （ 3） AllowGrayed屬性 ： 如果復(fù)選按鈕為三態(tài)的 ， 也就是可以表達 “ 選中 ” 、 “ 未選中 ” 和 “ 部分選中 ” (灰色 )的概念時 ， 可以將 AllowGrayed屬性設(shè) 置為 True 。增加的新條目 39。 (39。 age:integer。 :=39。)39。 第 3章 窗體和常用組件 RadioGroup組件 使用 RadioGroup組件可以快速生成一組單選按鈕，通過其 Items屬性，可預(yù)先設(shè)定單選按鈕；也可在運行期間對該屬性進行操作。 end。 // 用于輸入信息的各文本框置空 :=39。+ +candidates[k].name+39。 第 3章 窗體和常用組件 Panel組件的例子 運行程序，輸入各候選人，所有侯選人的信息存放在 candidates數(shù)組中；在 hxrlist選擇候選人，實時顯示得票情況。 第 3章 窗體和常用組件 Image組件 圖片框組件的主要屬性有： (1) Picture屬性： 通過設(shè)置該屬性可在設(shè)計階段預(yù)先裝入一個圖形文 件，文件類型為 .bmp、 .jpg、 .jpeg、 .wmf、 .emf和 .ico等。c:\images\39。 選中 Bar類型 ， 按 “ OK”按鈕返回到 Editing Chart 對話框 。 （ 6）運行程序 運行結(jié)果 第 3章 窗體和常用組件 附加類組件列表 第 3章 窗體和常用組件 附加類組件列表 第 3章 窗體和常用組件 Win32類組件和 System類組件 Win32類組件和 System類組件分別位于組件面板的 Win32選項卡和 System選項卡上 Win32類組件在組件面板上的位置 System類組件在組件面板上的位置 第 3章 窗體和常用組件 Win32類組件 1. PageControl組件 為擴展應(yīng)用程序的用戶界面，增加窗體的信息容量，通?？梢圆捎梅猪摰男问絹碓O(shè)計窗體。 操作步驟如下 : (1)選擇 File?New?Project命令 ， 新建一個項目 。 :=+?表 where 姓名 =39。對應(yīng)的 SQL語句為： 39。 5. TreeView組件 TreeView組件在一個層次性列表中包含了文字、圖形和數(shù)據(jù)。 （ 6）另外，有時也需要編寫 TreeView組件的 OnMouseDown事件的處理 過程。 begin name:=trim()。 （ 1） 動畫場景： 界面有 2個按鈕 “ 放大 ” 和 “ 暫停 ” （ btnsize和 btnpause） 、1個 TrackBar組件 （ speedBar） 、 1個圖像框 （ image1） 和 2個 標簽組成 。 第 3章 窗體和常用組件 運用定時器和圖片框設(shè)計一個簡單的動畫 （ 4） 運行程序 。 在程序中使用 Execute方法 ，可顯示 OpenDialog對話框 。 end。 （ 4） 點擊 OK按鈕 。 （ 6）單擊 OK按鈕。 定義組件模板對話框 第 3章 窗體和常用組件 窗體模板 1. 窗體一般帶有許多代碼 ， 而且大多數(shù)應(yīng)用程序里會重復(fù)出現(xiàn)許多類型的窗體 ， 當設(shè)計好一個自定義的對話框后 ， 如果在其他工程中會用到它 ， 可以將該對話框保存成一個模板 ， 以提高開發(fā)效率 ，減少重復(fù)性工作 。 if then with do for I := 0 to Count 1 do begin AssignFile(F, Strings[I])。 （ 4） FilesName屬性 該屬性用于設(shè)置當打開對話框時 ， 在 “ 文件名 ” 文本框中出現(xiàn) 的默認文件名 。 // 定時器定時放大圖像框的寬度和高度 begin := +20。 第 3章 窗體和常用組件 有關(guān) Win32組件應(yīng)用 運行程序： 運行結(jié)果 第 3章 窗體和常用組件 System類組件 1. Timer組件 Timer是計時器組件，通常用于在應(yīng)用程序中處理復(fù)發(fā)事件。 // 雙擊 UpDown1， 在其單擊事件代碼編輯器中 ， 編寫如下代碼： procedure (Sender: TObject。 第 3章 窗體和常用組件 Win32類組件 （ 2） 在程序運行期間 ， 可以動態(tài)地改變樹的內(nèi)容 。 TrackBar組件的主要屬性 : ① Position屬性 可以在設(shè)計或運行時設(shè)置或返回 TrackBar指 針的位置，軌跡條上的刻度范圍由 Min和 Max屬性來確定。+ else // 選擇 RBnor， 籍貫和系別兩個條件用 or連接 temp:=39。39。 如果單 擊標簽 ， 則選中了整個組件 ， 同時設(shè)置當前激活頁 ， 這時按下 Delete 鍵 ， 會把整個組件刪除 。,clBlue)。若設(shè)置為 True，則表示可以拖動鼠標以改變圖表