【正文】 （ 5）輸入包的描述。 當(dāng)使用模板創(chuàng)建新窗體時 ， 有三種選擇 。 將模板添加到窗體或數(shù)據(jù) 模塊后，可以修改其位置、 大小和特性等，就像是分 別添加的一樣。 第 3章 窗體和常用組件 SaveDialog對話框 SaveDialog組件對應(yīng)于“另存為”對話框，它的屬性、方法和事件和“打開”對話框基本相同。 {打開文件對話框的默認文件類型為 All files } := 2。 第 3章 窗體和常用組件 OpenDialog對話框 示例 【 例 】 在窗體上放置一個 OpenDialog對話框 ， 一個 memo組件和 一個 button組件 ， 程序完成的功能是：當(dāng)用戶單擊 button按鈕 ， 彈 出打開文件對話框 ， 文件過濾器設(shè)置是所有類型的文件 ， 用戶選擇 了某個文件并按 “ OK”按鈕后所選文件的第一行內(nèi)容添加到 memo組 件中 。 （ 3） DefaultText屬性 該屬性用來設(shè)置默認的擴展名 。 單擊 “ 放大 ” 按鈕 ， 圖像即開始定時放大；單擊 “ 暫 停 ”按鈕 ， 則停止放大；改變 TrackBar組件上滑塊的位置可以改變放大 的速度 。 procedure (Sender: TObject)。 （ 2） 各對象的屬性設(shè)置 。 end。 if =true then sex:=39。 (*清空顯示綜合信息的 Memo1*) end。在函數(shù)體中，可以利用 GetHitTestInfoAt函數(shù)來確定鼠標(biāo) 點擊的位置，然后根據(jù)不同的點擊位置做相應(yīng)的操作 。 在 TreeView Items Editor對話框中通過 “ New Item”按鈕為 TreeView組件增加新的節(jié)點 ， 通過 “ New SubItem”按鈕為當(dāng)前 節(jié)點增加子節(jié)點 ， Text后的文本框用來編輯顯示在 TreeView組 件中的節(jié)點文字 ， 也可以通過 “ Delete”按鈕 刪除當(dāng)前節(jié)點 。它類似于在 Windows資源管理器左窗格中顯示文件和文件夾的方式顯示節(jié)點的層次結(jié)構(gòu)。 按姓名查詢，輸入要查詢的姓名，單擊“查詢”按鈕 單擊“查詢”按鈕 按籍貫和系別查詢，選擇籍貫和所在系別后，單擊“查詢”按鈕， 第 3章 窗體和常用組件 Win32類組件 2. TrackBar組件 當(dāng)用戶要快速設(shè)置某個范圍內(nèi)的一個整數(shù)值時，利用 TrackBar組件可以通過滑動軌跡條上的指針來調(diào)整該整數(shù)值，沿軌跡條上的點標(biāo)記標(biāo)明了一定范圍的刻度。+chr(13)+chr(10) +39。and 系別 =39。+ 。 // 輸入姓名 ， 顯示相應(yīng)的 SQL語句 begin if =39。 (2) 在所建窗體中加入 PageControl組件 （ 將其 Name屬性設(shè)為 pagequery） 。 （ 2） 利用鼠標(biāo)左鍵單擊標(biāo)簽與單擊頁面位置選中的對象是不同的 。 PageControl組件為分頁組件，是一個可以包含多個頁面（也稱選項卡）的容器組件，其中每個頁面都可以包含各種組件。三季度 39。 （ 5） 在窗體中添加兩個 BitBtn組件 ， BitBtn1的 Caption屬性為“ 圖 表 ” ， BitBtn2的 Caption屬性為 “ 退出 ” ， 在 BitBtn1的OnClick 事件中添加代碼： 第 3章 窗體和常用組件 Chart組件使用的示例 procedure (Sender: TObject)。 （ 3） AllowZoom屬性： 該屬性用來設(shè)置在運行時是否可以拖動圖表 以改變形狀。 ) 。 編寫對 Picture1組件和 Picture2按鈕的事件處理 代碼 ， 程序代碼如下： // 當(dāng)單擊 Picture2按鈕時在圖像中裝入圖像 ： procedure TForm1. Picture1Click(Sender: TObject)。在運行 期間，則可通過 LoadFromFile函數(shù)動態(tài)地裝入位圖 (2) Transparent屬性： 該屬性用來設(shè)置圖像是否透明，為 True，則圖像 是透明的，該 屬性只適用于 BMP格式的文件。 當(dāng)它為 1時 ， 表示文字顯示在圖像與按鈕邊界 的中間 。 運行結(jié)果 第 3章 窗體和常用組件 附加類組件 Delphi 7有一組功能強大的附加類控件，利用它們，可以很方便地優(yōu)化界面設(shè)計，增強應(yīng)用程序的功能，方便程序員進行各種程序設(shè)計。39。 39。 // panel1上的組件不可操作 ， 即不可再輸入信息 :=true。39。 // 每輸入一個候選人 i加 1 with candidates[i] do // 當(dāng)前輸入的信息作為存放候選人信息數(shù)組的第 i個元素 begin name :=trim()。 var candidates:array[1..10] of member。 設(shè)計思想： 定義一記錄型數(shù)組 ， 將輸入的每一個后選人的基本信息存儲到數(shù)組 的一個元素中 。該組件的 Columns屬性用于設(shè)置分組框中的列數(shù)，默認值是 1，各個按鈕之間的距離會自動設(shè)置成等間距的。 （ 3） LargeChange： 該屬性用來設(shè)置利用鼠標(biāo)在滾動條上單擊左 鍵，或者按下 PageUp(PgUp )、 PageDown ( PgDn )鍵時，滾 動條滾動的距離。 end 。+xb+39。應(yīng)執(zhí)行的 SQL語句是 39。 age:=strtoint( )。 begin if (=39。39。法律系 39。)。 ) 。單選按鈕的屬性與 CheckBox基本相同。 （ 4） State屬性 ： 該屬性可以用來設(shè)置或返回復(fù)選框的狀態(tài) ， 可取以下值： l cbChecked：表示復(fù)選框處于啟用狀態(tài) 。”，將這個字符設(shè)置為熱鍵。 。歡迎使用 39。 本程序接收用戶輸入的用戶名和口令 ， 進行驗證 ， 根據(jù)輸入是否正確顯示相應(yīng)的提示信息 。 標(biāo)準(zhǔn)類組件在組件面板上的位置 第 3章 窗體和常用組件 Label組件 Label組件的常用屬性 第 3章 窗體和常用組件 1. Edit組件 屬性 : （ 1） Text屬性： 其值是文本編輯框的最新內(nèi)容。 方法 2：鍵盤操作 利用鍵盤的上 (↑)、下 (↓)、左 (←)、右 (→)移動鍵可以在窗體中選 擇組件。 （ 2） 通過快捷鍵 Ctrl+C將選中的組件復(fù)制到剪貼板中 。 第 3章 窗體和常用組件 編輯組件對象 (1)單擊某個組件即可選中該組件，被選中的組件四周將會出 8 個正 方形黑點。 :=“計算機系”； 第 3章 窗體和常用組件 、事件和方法 嵌套屬性 : 即包含子屬性的屬性 組件屬性 組件常見的基本屬性 第 3章 窗體和常用組件 、事件和方法 2. 組件事件 對組件所做的某個動作或系統(tǒng)的某些行為（如按下鼠標(biāo)、雙擊鼠標(biāo)、時間間隔到、窗體裝入等）稱作事件。第 3章 窗體和常用組件 Delphi實用教程 第 3章 窗體和常用組件 第 3章 窗體和常用組件 選擇主菜單的 File?New?Application，即可新建一個應(yīng)用程序，Delphi將自動建立一個名為 Form1的窗體，同時在代碼編輯窗口中自動建立一個名為 unit1的單元文件。 組件的常用事件及觸發(fā)條件 第 3章 窗體和常用組件 、事件和方法 3. 組件方法 組件方法，實質(zhì)上就是函數(shù)或過程。 (2)選中多個組件。 （ 3）通過快捷鍵 Ctrl+V將剪貼板中的組件粘貼到窗體中。選中某個組件后，通過 Ctrl +↑、 Ctrl+↓、 Ctrl +←、 Ctrl+→可以改變組件的位置，通過 Shift +↑、 Shift +↓、 Shift +←、 Shift +→可以改變組件的大小。 （ 2） AutoSelect 屬性： 當(dāng) Edit組件獲得輸入焦點時， 是否自動選中所有的文本。 界面設(shè)計 : denglu窗體及其包含的組件對象屬性表 denglu窗體 第 3章 窗體和常用組件 wele窗體 wele窗體及其包含的組件對象屬性表 第 3章 窗體和常用組件 添加代碼 : l 在 implementation區(qū)中加入“ unit2”單元，表示需引用該單元 （ unit2單元是 wele窗體所對應(yīng)的單元）： uses unit2。 :=39。 // 顯示 wele窗體 end。 （ 2） Cancel屬性： Cancel屬性用于設(shè)置按鈕是否執(zhí)行取消操作 。 l cbUnchecked：表示復(fù)選框處于未啟用狀態(tài) 。 第 3章 窗體和常用組件 ListBox組件 列表框組件主要屬性有： （ 1） Items屬性： 該屬性用于設(shè)計階段設(shè)置列表框的內(nèi)容 。 l 刪除當(dāng)前選中的條目： ( ) 。 (39。)。 :=39。39。 // 將 age department:= [] 。+chr(13)+chr(10)。,39。 end。 （ 4） SmallChange： 該屬性用來設(shè)置當(dāng)用戶在滾動條兩端的上下 箭頭時，滾動條滾動的距離。 例： Case Of 0：語句 1； // 選擇了第 1項 1：語句 2； // 選擇了第 2項 2：語句 3； // 選擇了第 3項 … end。 將所有的候選人姓名添加到一列表中以供選擇 ， 根 據(jù)在列表框中的選擇情況 ， 統(tǒng)計選票并每人的得票數(shù) 。 // 用來存放候選人信息 i:integer。 sex:=trim()。 :=39。 // 可對 panel2內(nèi)組件操作 ， 即開始投票 :=39。 .add(candidates[k].name)。 for k:=1 to i do // 在 labresult上顯示當(dāng)前的選票情況 :=39。 附加類組件在組件面板上的位置 附加類組件 第 3章 窗體和常用組件 BitBtn組件 位圖按鈕組件的主要屬性有： （ 1） Glyph屬性： 選定按鈕的圖像。 第 3章 窗體和常用組件 SpeedButton組件 快捷按鈕組件的主要屬性有： (1) Down屬性： 設(shè)置按鈕的狀態(tài) 。 (3) IncrementalDisplay屬性： 在裝入大型壓縮圖片的時，若將該屬性 設(shè)置為 True則在裝入圖片的時，將看到圖像被逐漸畫出來的過程； 若設(shè)置為 False，則只能在整個圖像都調(diào)出來后才顯示出來。 begin .loadfromfile(39。 end。若設(shè)置為 True，則表示可以拖動鼠標(biāo)以改變圖表 形狀和大小。 begin with Series1 do begin add(1000,39。,clBlue)。 PageControl組件的主要屬性有： l PageCount： 該屬性用于設(shè)置 PageControl組件中所包含的頁 的數(shù)目。 如果單 擊標(biāo)簽 ， 則選中了整個