[delphi步步精通]第7章常用組件(編輯修改稿)
2025-07-03 20:19 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 。 (39。Operating System39。)。 (39。Data Structure39。)。 (39。Application of Database 39。)。 (39。Computer Network Principle39。)。 (39。Software Engineering39。)。 end。 ? 在 Listbox1組件和 Listbox2組件的 Onclick事件中分別添加如下代碼： procedure (Sender: TObject)。 var i:Integer。 str,st:string。 begin 列表框組件 (2) i:=。 str:=[i]。 st:=。 if strpos(pchar(st),pchar(str))=nil then ([i])。 end。 procedure (Sender: TObject)。 var i:Integer。 begin i:=。 (i)。 end。 ? 程序運(yùn)行結(jié)果如圖 76所示。 圖 76 組合框演示程序 注意： 上面的程序可以通過(guò)雙擊左邊 Selection Items欄中作選的課目而將其添加到右邊的 Result欄中。如果右邊已經(jīng)有的則不會(huì)再添加。同樣，可以在右邊通過(guò)雙擊將該課目去掉。 組合框組件 (1) DropDownCount屬性、 Dropped Down屬性、 Style屬性、OnDropDown事件。 列表框雖然可以提供多個(gè)選項(xiàng)供用戶選擇 ， 但對(duì)于大小有限的窗口來(lái)說(shuō) ， 這是一筆不小的開(kāi)銷 。 為了最大限度地節(jié)省應(yīng)用程序窗口空間 ， Delphi 供了組合框組件 。 與列表框相比 ， 組合框能有效地利用屏幕空間 。 接下來(lái)介紹其獨(dú)特的一些常用的屬性及主要的事件和方法 。 【 例 75】 組合框的使用。 ? 進(jìn)入 Delphi 1個(gè) Label組件和 2個(gè)ComboBox組件。 ? 在 form1的 Oncreate事件中添加如下代碼： procedure (Sender: TObject)。 begin :=39。漢字 39。 :=8。 :=39。宋體 39。 :=inttostr()。 end。 組合框組件 (2) ? 在 ComboBox1組件和 ComboBox2組件的 OnChange事件和 OnDropDown事件中分別添加如下代碼： procedure (Sender: TObject)。 begin :=GB2312_CHARSET 。 :=。 end。 procedure (Sender: TObject)。 begin :=strtoint()。 end。 procedure (Sender: TObject)。 begin with bobox1 do begin 。 。 組合框組件 (3) sorted:=true。 items:=。 。 end。 end。 procedure (Sender: TObject)。 var i:Integer。 begin with bobox2 do begin 。 。 i:=1。 while i 80 do begin (inttostr(i))。 i:=i+2。 end。 。 end。 end。 程序執(zhí)行結(jié)果如圖 77所示。 圖 77 組合框演示程序 對(duì)話框組件和對(duì)話框函數(shù) 常用對(duì)話框組件 Delphi ：打開(kāi)、存儲(chǔ)文件、設(shè)置字體和顏色、查找、打印、設(shè)置打印機(jī)組件等。它們都位于組件面板的Dialogs標(biāo)簽頁(yè)；當(dāng)然，這些對(duì)話框的外觀仍然取決于用戶使用的Windows版本，在程序執(zhí)行過(guò)程中調(diào)用相關(guān)組件的 execute方法，就會(huì)激活相應(yīng)的對(duì)話框。 1. 打開(kāi)文件對(duì)話框組件和保存文件對(duì)話框組件 OpenDialog組件和 SaveDialog組件有許多相似之處，不同是OpenDialog組件用于提供一個(gè)打開(kāi)對(duì)話框，供用戶進(jìn)行文件的選擇和打開(kāi)，而 SaveDialog組件用于保存文件。 OpenDialog組件常用的屬性值如下幾種。 DefaultEXT屬性 、 Filter屬性 、 InitialDir屬性、 Title屬性 常用對(duì)話框組件 2. 字體對(duì)話框組件和顏色對(duì)話框組件 即 FontDialog組件和 ColorDialog組件。 FontDialog組件封裝了Windows的字符集，可以提供一個(gè)字體對(duì)話框，供用戶設(shè)置文本的字體、字號(hào)； ColorDialog組件用于提供一個(gè)標(biāo)準(zhǔn)的顏色選擇對(duì)話框，用戶可以通過(guò)它來(lái)選擇顏色。它們的常用屬性如下： MaxFontSize屬性、 MinFontSize屬性、 Options屬性、 Color屬性。 3. 打印選項(xiàng)組件和打印設(shè)置組件 即 PrintDialog組件和 PrintSetupDialog組件。 PrintDialog封裝了標(biāo)準(zhǔn) Windows打印選項(xiàng)對(duì)話框，用于向打印機(jī)傳遞打印任務(wù)；PrintSetupDialog組件用來(lái)完成打印設(shè)置任務(wù)。 4. 文本搜索組件和文本替換組件 即 FindDialog組件和 ReplaceDialog組件。 FindDialog組件封裝了標(biāo)準(zhǔn) Windows的文本搜索對(duì)話框，允許用于在文件中查找一段文字； ReplaceDialog組件包含了
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1