[delphi步步精通]第7章常用組件(已修改)
2025-06-08 20:19 本頁面
【正文】 本章要點(diǎn)： ?組件的基本概念 ?窗體和按鈕組件的使用 ?標(biāo)簽和編輯組件的使用 ?列表框和組合框組件的使用 ?其他組件的使用 第 7章 常 用 組 件 窗體和按鈕組件 組件（ Components）是在工程設(shè)計(jì)時(shí)可以使用、處理的可視對象，是那些用于生成用戶界面以及為程序提供附加功能模塊的對象。 Delphi 大量的可視組件，可以利用第三方組件的接口，豐富 Delphi ，本章介紹 Delphi ，在第 7章進(jìn)一步介紹基于組件的開發(fā)。 打開 Delphi ，在 Component palette中選擇相關(guān)組件添加到默認(rèn)表單中。但有時(shí)會(huì)發(fā)生在組件面板中找不到需要的組件圖標(biāo)的情況，不妨試試下面的操作。單擊 View菜單，選擇 Component list菜單項(xiàng)將出現(xiàn)如圖 71所示對話框。 圖 71 Components 對話框 窗體組件（ 1） 窗體是可以放置各種組件的一個(gè)窗口 ， 在運(yùn)行時(shí)就是一個(gè)窗口 ， 它是應(yīng)用程序的主要界面 ， 它的友好直接影響程序的使用和質(zhì)量 。 接下來介紹窗體的常用屬性和事件 。 1. 常用屬性 Name屬性 、 Formstyle屬性 、 Icon屬性 、 Visible屬性 2. 常用事件 OnCreate事件 、 OnKeyDown事件 、 OnDestoy事件 【 例 71】 窗體用法。 ? 進(jìn)入 Delphi ，對默認(rèn)的表單的一些屬性進(jìn)行設(shè)置， 如下所示： name： MainForm Caption:主窗體 Formstyle: fsMDIForm 窗體組件（ 2） ? 單擊 File，選擇 New后單擊 Form，在出現(xiàn)的另一個(gè)表單中作如下修改： name： SubForm Caption:子窗體 Formstyle： fsMDIChild ? 為 SubFrm表單中 OnClick事件添加如下代碼： procedure (Sender: TObject)。 begin :=clred。 end。 ? 單擊 Run菜單運(yùn)行程序，當(dāng)單擊子窗體時(shí)，發(fā)現(xiàn)子窗體的顏色發(fā)生了改變。程序運(yùn)行結(jié)果如圖 72所示。 注意： 由于只是為了演示組件的功能，所以對程序本身實(shí)現(xiàn)的意義并不關(guān)心，這一點(diǎn)需要注意。 圖 72 窗體應(yīng)用 72 窗體應(yīng)用 按鈕類組件 (1) 在 Delphi ， 常用的按鈕類組件可分為三種：普通按鈕 （ Button） 組件 、 位圖按鈕 （ BitBtn） 組件和加速按鈕 （ Speed Button） 組件 。 下面介紹它們的用法 。 1. Button按鈕組件 常用屬性與事件： ShowHint屬性 Hint屬性 Default屬性 Cancel屬性 ModalResult屬性 OnClick事件：發(fā)生下列情況觸發(fā)該事件。 2. BitBtn 按鈕組件 位圖按鈕組件位于組件面板的 Additional標(biāo)簽頁，與 Button組件所不同的是多了一個(gè)位圖符號在按鈕上，該組件用于創(chuàng)建一個(gè)其上帶有位圖的按鈕，其中大部分屬性和事件與 Button一致，這里僅介紹它所獨(dú)有的屬性。 常用屬性與事件： Kind屬性 Glyph屬性 NumGlyphs屬性 Layout屬性 OnClick事件 按鈕類組件 (2) 3. SpeedButton加速按鈕組件 加速按鈕組件位于組件面板的 Additional標(biāo)簽頁，常常被放在Panel組件上，用于設(shè)計(jì)工具欄，它和 Bitbtn組件非常相似，也可以顯示圖像和文本，但通常只顯示圖像，它的特殊屬性如下。 常用屬性與事件： AllowAllUp屬性 Down 屬性 GroupIndex屬性 MouseIncontrol屬性 【 例 72】 針對上面介紹的內(nèi)容來編寫一個(gè)小的程序。目的是熟練按鈕的有關(guān)屬性和方法，程序本身沒有實(shí)際意義。 ? 進(jìn)入 Delphi ，設(shè)計(jì)如圖 73所示窗體。 圖 73 按鈕類實(shí)例程序 ? 該窗體上并排添加了三個(gè)名為 sb sb sb3的SpeedButton按鈕、一個(gè)名為 B1的 Button按鈕和一個(gè)名為 Bb1的 BitBtn按鈕，分別如下設(shè)置它們的屬性值： 按鈕類組件 (3) :=1。 :=true。 :=’this is a speedbutton’。 :=true。 :=False。 :=1。 :=1。 :=’next’。 :=bkClose。 ? 使用 Picture Editor分別為 sb1~sb3按鈕的 Glyph屬性設(shè)置一個(gè)對應(yīng)的位圖文件，這些位圖文件分別在 delphi \Domos\Doc\Graphex 目錄下，當(dāng)然，可以自己選擇合適的位圖文件。 ? 在 B1按鈕的 OnClick事件中添加如下代碼，注意 i變量在 implementation之前應(yīng)該先給予定義： var i:integer=0。 按鈕類組件 (4) ? 在 B1按鈕的 OnClick事件中添加如下代碼，注意 i變量在 implementation之前應(yīng)該先給予定義： var i:integer=0。 procedure (Sender: TObject)。 begin if i=0 then begin :=true。 i:=1。 end else if i=1 then begin
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1