【正文】 按鈕類組件 (4) ? 在 B1按鈕的 OnClick事件中添加如下代碼，注意 i變量在 implementation之前應(yīng)該先給予定義： var i:integer=0。 :=true。 2. BitBtn 按鈕組件 位圖按鈕組件位于組件面板的 Additional標(biāo)簽頁，與 Button組件所不同的是多了一個(gè)位圖符號在按鈕上，該組件用于創(chuàng)建一個(gè)其上帶有位圖的按鈕，其中大部分屬性和事件與 Button一致，這里僅介紹它所獨(dú)有的屬性。 begin :=clred。 Delphi 大量的可視組件，可以利用第三方組件的接口，豐富 Delphi ，本章介紹 Delphi ，在第 7章進(jìn)一步介紹基于組件的開發(fā)。 接下來介紹窗體的常用屬性和事件 。 圖 72 窗體應(yīng)用 72 窗體應(yīng)用 按鈕類組件 (1) 在 Delphi ， 常用的按鈕類組件可分為三種：普通按鈕 （ Button） 組件 、 位圖按鈕 （ BitBtn） 組件和加速按鈕 （ Speed Button） 組件 。 圖 73 按鈕類實(shí)例程序 ? 該窗體上并排添加了三個(gè)名為 sb sb sb3的SpeedButton按鈕、一個(gè)名為 B1的 Button按鈕和一個(gè)名為 Bb1的 BitBtn按鈕，分別如下設(shè)置它們的屬性值： 按鈕類組件 (3) :=1。 :=bkClose。 :=true。 編輯框組件 (1) AutoSelect 屬性、 CharCase 屬性、 MaxLength屬性、 Passwordchar屬性、Text屬性 Clear方法、 CopyToClipboard 方法、 CutToClipboard 方法 PasteFromClipboard 方法、 OnChange 事件、 當(dāng)編輯框中的內(nèi)容發(fā)生改變時(shí)，將觸發(fā)這個(gè)事件。 begin :=39。 :=3。 end。39。 對于這些有規(guī)律的數(shù)據(jù) ， 就可使用列表框和組合框組件 。組合框演示程序 39。 (39。)。 ? 在 Listbox1組件和 Listbox2組件的 Onclick事件中分別添加如下代碼： procedure (Sender: TObject)。 procedure (Sender: TObject)。同樣，可以在右邊通過雙擊將該課目去掉。 ? 在 form1的 Oncreate事件中添加如下代碼： procedure (Sender: TObject)。 組合框組件 (2) ? 在 ComboBox1組件和 ComboBox2組件的 OnChange事件和 OnDropDown事件中分別添加如下代碼： procedure (Sender: TObject)。 begin with bobox1 do begin 。 var i:Integer。 end。 FontDialog組件封裝了Windows的字符集，可以提供一個(gè)字體對話框，供用戶設(shè)置文本的字體、字號； ColorDialog組件用于提供一個(gè)標(biāo)準(zhǔn)的顏色選擇對話框，用戶可以通過它來選擇顏色。用戶只有對這個(gè)對話框進(jìn)行準(zhǔn)確響應(yīng)后，才能關(guān)閉對話框。輸入 39。 菜單組件 2. 添加菜單命令 3. 創(chuàng)建熱鍵方法 4. 創(chuàng)建快捷鍵方法 5. 創(chuàng)建分隔符方法 注意： 在有些子菜單中，如果子菜單項(xiàng)的數(shù)目較多，可以把它們分組，設(shè)定一些分隔符，這在應(yīng)用程序的菜單中是非常普遍的。 它可以將最常用的功能集中在一起 ， 用圖標(biāo)的形式提供快捷的訪問方式 。 2. 顯示面板組件（ Status Panel） 顯示面板組件并不獨(dú)立存在，而是依附于狀態(tài)欄控件存在的。 BorderStyle屬性、 Cells[Column， Row]屬性：、 ColCount屬性、RowCount屬性。當(dāng)指定多個(gè)過濾器時(shí)之間用“ 。該組件常用屬性如下。還可以通過按 PageUp和PageDown鍵來移動滑塊。 該程序主要功能如下： ? 能夠進(jìn)行文件的建立、打開和保存； ? 能夠進(jìn)行文本的輸入和編輯； ? 能夠設(shè)置文本的字體和樣式。Z) 字體 (amp。 ? 程序單元代碼見本教程 P125頁 ? 按 F9鍵，程序執(zhí)行結(jié)果如圖 713所示。S)… 剪切 (amp。 圖 712 RTF Editor主界面 組件應(yīng)用（２） ? 進(jìn)入菜單設(shè)計(jì)器 ， 如表 71設(shè)置各菜單項(xiàng) 。用于反饋應(yīng)用程序中過程的處理進(jìn)度。它與TabControl組件不同， TabControl組件只有一個(gè)頁面，單擊不同的標(biāo)簽時(shí)組件顯示什么內(nèi)容由程序控制；而 PageControl組件在單擊不同的標(biāo)簽時(shí)可出現(xiàn)不同的頁，每頁可以含有自己的內(nèi)容。 Delphi 。和StringGrid組件不同的是它可以在行列中顯示圖形。 首先在窗體中選擇狀態(tài)欄組件，雙擊后出現(xiàn)顯示面板編輯器。 ToolBar組件的屬性很多 ， 下面介紹一些常用的屬性 。菜單的位置是在屏幕上“浮動”的，它的位置是根據(jù)鼠標(biāo)的當(dāng)前位置決定。input a string 39。 begin ShowMessage(‘hello world’)； end。 3. 打印選項(xiàng)組件和打印設(shè)置組件 即 PrintDialog組件和 PrintSetupDialog組件。 程序執(zhí)行結(jié)果如圖 77所示。 。 組合框組件 (3) sorted:=true。 :=。漢字 39。 列表框雖然可以提供多個(gè)選項(xiàng)供用戶選擇 ，