四年級(jí)上冊(cè)信息技術(shù)課件-設(shè)置組件屬性(6)｜北京版

1、設(shè)置組件屬性設(shè)置組件屬性根據(jù)組件在運(yùn)行期間是否可見(jiàn)，可以把組件分為兩大類(lèi)：可視組件和不可視組件。二、組件屬性事件和方法二、組件屬性事件和方法1. 組件屬性組件屬性 對(duì)組件屬性的設(shè)置有兩種方式：一是在Object Inspector的Properties選項(xiàng)卡中設(shè)置組件的屬性值，例可以通過(guò)雙擊Enabled后的True，將Enabled屬性設(shè)置為False；二是通過(guò)程序語(yǔ)句使組件的屬性值在程序運(yùn)行時(shí)動(dòng)態(tài)地被改變，如： edit1.enabled:=True; Label1.Caption:=“計(jì)算機(jī)系”； 還有一種比較特殊的屬性：嵌套屬性，即包含子屬性的屬性。一般嵌套屬性在Object Insp

2、ector窗口中顯示時(shí)前面有一個(gè)“+”號(hào)或“-”號(hào)。單擊帶有子屬性的屬性前面的“+”號(hào)時(shí)，展開(kāi)子屬性，此時(shí)“+”號(hào)變成“-”號(hào)；單擊已展開(kāi)其子屬性的屬性前的“-”號(hào)，則將子屬性隱藏起來(lái)。另外雙擊嵌套屬性，則將其子屬性在展開(kāi)和隱藏兩種狀態(tài)之間切換。2. 組件事件組件事件 每個(gè)組件都有相應(yīng)的一組事件，各組件有很多事件是相同的，包括與鼠標(biāo)、鍵盤(pán)、拖曳和焦點(diǎn)相關(guān)的事件等，這些常用事件及其觸發(fā)條件列于下表中。 3. 組件方法組件方法 組件方法，實(shí)質(zhì)上就是函數(shù)或過(guò)程。組件的方法是該類(lèi)或?qū)ο箢?lèi)型實(shí)例的函數(shù)或過(guò)程。每一類(lèi)組件都有自己的方法，以實(shí)現(xiàn)各種功能。（見(jiàn)下表）組件常見(jiàn)的基本屬性組件常見(jiàn)的基本屬性 組件的

3、常用事件及觸發(fā)條件組件的常用事件及觸發(fā)條件一、向窗體中添加組件一、向窗體中添加組件 向窗體中添加組件的方法很多，主要有以下3種： (1) 在組件面板的組件欄中單擊需要添加的組件，然后在窗體中需要添加該組件處單擊鼠標(biāo)左鍵，即可將組件添加到窗體中。此時(shí)添加的組件以缺省的大小出現(xiàn)在窗體中，可根據(jù)需要對(duì)組件的大小進(jìn)行調(diào)整。 (2) 在組件欄中單擊需要添加的組件，然后在窗體中需要添加該組件處拖動(dòng)鼠標(biāo)左鍵，松開(kāi)鼠標(biāo)左鍵后，組件就以剛才拖動(dòng)的大小出現(xiàn)在窗體中，接著也可以對(duì)組件的大小進(jìn)行調(diào)整。 (3) 在組件欄中雙擊組件，則被雙擊的組件會(huì)自動(dòng)添加到當(dāng)前默認(rèn)的窗口或容器組件中。二、二、 編輯組件對(duì)象編輯組件對(duì)象

4、1. 選中窗體組件選中窗體組件 有時(shí)要對(duì)多個(gè)組件進(jìn)行同時(shí)編輯，就需要同時(shí)選中多個(gè)組件。選定多個(gè)組件的方法有2種： (1) 按下Shift 鍵的同時(shí)，利用鼠標(biāo)左鍵單擊各個(gè)組件。 (2) 在窗體上沒(méi)有組件的地方按下鼠標(biāo)左鍵并拖動(dòng)，將會(huì)出現(xiàn)一個(gè)虛框。松開(kāi)鼠標(biāo)左鍵后，該虛框“觸及”到的組件就被選中。2. 復(fù)制窗體中的組件復(fù)制窗體中的組件方法1：（1）選擇一個(gè)或多個(gè)要復(fù)制的組件。（2）通過(guò)主菜單命令EditCopy復(fù)制到剪貼板中。（3）然后通過(guò)菜單命令EditPaste將剪貼板中的組件粘貼到窗體中。方法2：（1）選擇一個(gè)或多個(gè)要復(fù)制的組件。（2）通過(guò)快捷鍵Ctrl+C將選中的組件復(fù)制到剪貼板中。（3）通

5、過(guò)快捷鍵Ctrl+V將剪貼板中的組件粘貼到窗體中。3. 刪除窗體中的組件刪除窗體中的組件刪除窗體中的組件，有兩種常用方法：方法1：（1）選中要?jiǎng)h除的組件。（2）單擊Delete鍵。方法2：（1）選中要?jiǎng)h除的組件。（2）選擇主菜單中的EditDelete命令。 4. 調(diào)整組件的大小和位置調(diào)整組件的大小和位置 改變組件在窗體中的大小和位置可以采用下面的方法： 方法1：鼠標(biāo)操作 選中組件，在組件上按下鼠標(biāo)左鍵并拖動(dòng)到目的位置，組件就被移動(dòng)到該位置。 將鼠標(biāo)移動(dòng)到某個(gè)黑點(diǎn)上，鼠標(biāo)形狀將變成雙向箭頭，此時(shí)可以按下鼠標(biāo)左鍵進(jìn)行拖動(dòng)，即可改變組件的大小。 方法2：鍵盤(pán)操作 利用鍵盤(pán)的上()、下()、左()、

6、右()移動(dòng)鍵可以在窗體中選擇組件。選中某個(gè)組件后，通過(guò)Ctrl +、Ctrl+、Ctrl +、Ctrl+可以改變組件的位置，通過(guò)Shift +、Shift +、Shift +、Shift +可以改變組件的大小。 方法3：統(tǒng)一操作 先選中幾個(gè)組件，然后通過(guò)主菜單EditSize.命令，將打開(kāi)Size對(duì)話框，如圖所示，在Size對(duì)話框中選擇寬度和高度的有關(guān)設(shè)置即可。 圖圖 Size對(duì)話框?qū)υ捒?Alignment 對(duì)話框?qū)υ捒?將多個(gè)組件選中后，除了用上述方法改變它們的大小外，還可以同時(shí)對(duì)它們進(jìn)行移動(dòng)和對(duì)齊等操作，方法是：選擇主菜單的EditAlign.命令，將彈出如圖所示的Alignment 對(duì)

7、話框。在Alignment對(duì)話框中，可對(duì)選中的組件進(jìn)行水平和垂直兩個(gè)方向的對(duì)齊操作，其中各選項(xiàng)的含義列于下表中。 Alignment對(duì)話框中各選項(xiàng)的含義對(duì)話框中各選項(xiàng)的含義 5. 設(shè)置可視組件的設(shè)置可視組件的Tab順序順序 方法：選擇主菜單的EditTable Order. . .命令，將彈出如圖所示的“Edit Tab Order”對(duì)話框，在其中的“Controls listed in tab order”框中選中某組件后，點(diǎn)擊右部的上、下箭頭就可改變?cè)摻M件的TabOrder屬性。圖圖Edit Tab Order對(duì)話框?qū)υ捒蛞?、一、Label組件（位于組件（位于standard面板）面板）

8、標(biāo)簽組件用于在窗體上顯示文本，多用于顯示提示信息；也可顯示動(dòng)態(tài)文本，如用label顯示不斷變化的當(dāng)前時(shí)間。Label組件常用屬性的含義見(jiàn)下表。 表表 Label組件的常用屬性組件的常用屬性 （3）PasswordChar屬性 將用戶輸入的所有字符以同一個(gè)字符顯示，其默認(rèn)值是“#0”，表示編輯框直接顯示用戶輸入的字符；如果將其設(shè)置為“*”，則不論用戶輸入什么，編輯框中都只顯示“*”號(hào)，一般在鍵入密碼時(shí)可以這樣設(shè)置。 （4）Autosize屬性 用于控制是否隨字體的高度來(lái)改變編輯框的高度。當(dāng)Autosize設(shè)置為T(mén)rue時(shí)，編輯框的高度會(huì)自動(dòng)適應(yīng)輸入文字的字體高度。值得注意的是，該屬性只有當(dāng)Bor

9、derStyle屬性設(shè)置為bsSingle（單線邊框，大小不可改變）時(shí)才有效。 Edit組件的其他常用屬性見(jiàn)下表。 Edit組件最常用的事件（也是默認(rèn)事件）為OnChange，一旦Edit組件中的文本內(nèi)容發(fā)生改變，就會(huì)觸發(fā)OnChange事件。 Edit組件的其他常用屬性組件的其他常用屬性 【例例】用戶身份驗(yàn)證程序。本程序接收用戶輸入的用戶名和口令，進(jìn)行驗(yàn)證，根據(jù)輸入是否正確顯示相應(yīng)的提示信息。 （1）主窗體denglu界面如圖所示，界面上包含6個(gè)組件，2個(gè)Label組件用于顯示提示信息、2個(gè)Edit組件（txtusername用于輸入用戶名，txtpassword用于輸入用戶口令）和2個(gè)Bu

10、tton組件。 （2）組件的屬性設(shè)置。denglu窗體和welcome窗體所包含的各組件的主要屬性設(shè)置分別如表一和表二所示。 表一表一 denglu窗體及其包含的組件對(duì)象屬性表窗體及其包含的組件對(duì)象屬性表表二表二 welcome窗體及其包含的組件對(duì)象屬性表窗體及其包含的組件對(duì)象屬性表 (3) 編寫(xiě)denglu窗體相應(yīng)的程序代碼。 在implementation區(qū)中加入“unit2”單元，表示需引用該單元（unit2單元是welcome窗體所對(duì)應(yīng)的單元）。如下所示：uses unit2; 定義兩個(gè)unit級(jí)符號(hào)常量： const username=guest; / 定義用戶名 password=

11、12345; / 定義口令 雙擊“確定”按鈕，在代碼編輯區(qū)中輸入該按鈕的OnClick事件代碼：procedure Tdenglu.BtnOKClick(Sender: TObject);/ 判斷所輸入的用戶名和口令是否正確，以決定“welcome”窗體上的顯示內(nèi)容。begin if (txtusername.text=username) and (txtpassword.text=password) then begin / 用戶名和口令都正確，執(zhí)行 welcome.caption:=歡迎使用; welcome.label1.caption:=歡迎使用教師管理系統(tǒng); end else / 用

12、戶名和口令只要有一項(xiàng)不正確，執(zhí)行 begin welcome.caption:=拒絕使用; welcome.label1.caption:=口令錯(cuò)誤，請(qǐng)重新輸入; end ; welcome.ShowModal; / 顯示welcome窗體end; 雙擊“退出”按鈕，在編輯區(qū)中輸入該按鈕的OnClick事件代碼：close; / 關(guān)閉窗體 （4）運(yùn)行程序 按F9，在用戶名中輸入“guest”，在口令中輸入正確的口令“12345”，見(jiàn)圖(a)，單擊“確定”按鈕，顯示“welcome”窗體，見(jiàn)圖（b），若輸入錯(cuò)誤的用戶名或口令，運(yùn)行結(jié)果如圖（c）所示。 (a) (b) (c) 圖圖 運(yùn)行結(jié)果運(yùn)行結(jié)

13、果v3 3、掩碼編輯框、掩碼編輯框MaskEditMaskEditMaskEditMaskEdit控件是一種格式化的編輯框，它控件是一種格式化的編輯框，它的主要作用為以一定的格式規(guī)范用戶所輸?shù)闹饕饔脼橐砸欢ǖ母袷揭?guī)范用戶所輸入的數(shù)據(jù)。如郵政編碼、固定格式的電話入的數(shù)據(jù)。如郵政編碼、固定格式的電話號(hào)碼、身份證號(hào)碼等。掩碼編輯框隸屬于號(hào)碼、身份證號(hào)碼等。掩碼編輯框隸屬于類(lèi)類(lèi)TmaskEditTmaskEdit，TmaskEditTmaskEdit繼承了繼承了 Tedit Tedit的的所有屬性、事件和方法，即與組件所有屬性、事件和方法，即與組件editedit類(lèi)類(lèi)似。該組件位于【似。該組件位于【

14、AdditionalAdditional】面板中】面板中 掩碼編輯框掩碼編輯框MaskEditMaskEdit主要屬性主要屬性 A A、EditMaskEditMask為掩碼編輯框的掩碼字符串屬性，為掩碼編輯框的掩碼字符串屬性，主要用于確定輸入數(shù)據(jù)的格式以及風(fēng)格。主要用于確定輸入數(shù)據(jù)的格式以及風(fēng)格。取值主要?jiǎng)澐殖蔀槿齻€(gè)部分，并且用分號(hào)隔開(kāi)，取值主要?jiǎng)澐殖蔀槿齻€(gè)部分，并且用分號(hào)隔開(kāi)，如：如：“！99/99/00;1;_”,99/99/00;1;_”,其中第一部分是掩碼其中第一部分是掩碼字符串的主要部分，它確定了數(shù)據(jù)的格式，第二字符串的主要部分，它確定了數(shù)據(jù)的格式，第二部分為整數(shù)，默認(rèn)為部分為整數(shù)

15、，默認(rèn)為1 1表示掩碼中的所有字符將表示掩碼中的所有字符將被保存否則表示掩碼中的非輸入數(shù)據(jù)和標(biāo)準(zhǔn)分隔被保存否則表示掩碼中的非輸入數(shù)據(jù)和標(biāo)準(zhǔn)分隔符不將被保存，第三部分代表了掩碼中將要輸入符不將被保存，第三部分代表了掩碼中將要輸入的末輸入數(shù)據(jù)的字符。的末輸入數(shù)據(jù)的字符。 掩碼輸入的格式定義是使用掩碼輸入的格式定義是使用Input Mask EditorInput Mask Editor對(duì)話框來(lái)對(duì)話框來(lái)設(shè)置的。設(shè)置的。打開(kāi)打開(kāi)Input Mask EditorInput Mask Editor對(duì)話框的方法有如下兩種：對(duì)話框的方法有如下兩種：(1)(1)窗體上選中窗體上選中EditMaskEditMa

16、sk控件，在對(duì)象編輯器中選擇控件，在對(duì)象編輯器中選擇EditMaskEditMask屬性，單擊屬性值旁所對(duì)應(yīng)的按鈕；屬性，單擊屬性值旁所對(duì)應(yīng)的按鈕；(2)(2)右擊右擊EditMaskEditMask控件，在彈出菜單中執(zhí)行控件，在彈出菜單中執(zhí)行Input Mask Input Mask EditorEditor命令，打開(kāi)命令，打開(kāi)Input Mask EditorInput Mask Editor對(duì)話框。對(duì)話框。使用時(shí)可以選擇一個(gè)使用時(shí)可以選擇一個(gè)DelphiDelphi所提供的樣本掩碼，也可以自所提供的樣本掩碼，也可以自己設(shè)定特殊的掩碼字符串。己設(shè)定特殊的掩碼字符串。B B、edittext

17、edittext屬性：返回掩碼框中的文本內(nèi)容，該屬性只屬性：返回掩碼框中的文本內(nèi)容，該屬性只能在代碼中使用。能在代碼中使用。C C、ismaskedismasked：用于測(cè)試掩碼框中是否設(shè)置了掩碼，該屬：用于測(cè)試掩碼框中是否設(shè)置了掩碼，該屬性只能在代碼中使用。性只能在代碼中使用。 Editmask屬性中特殊字符的意義例：使用maskedit編輯單行文本步驟（1）新建應(yīng)用程序，在窗體上添加5個(gè)label組件、4個(gè)maskedit組件、1個(gè)edit組件（2）在form的oncreate事件寫(xiě)代碼，為4個(gè)maskedit設(shè)置格式和顯示文本。代碼如下：v多行文本編輯框多行文本編輯框MemoMemo 當(dāng)

18、需要處理備注類(lèi)型的多行文本時(shí)可當(dāng)需要處理備注類(lèi)型的多行文本時(shí)可以選用以選用MemoMemo控件，但控件，但MemoMemo控件只能顯控件只能顯示單一的一種字體格式，如果想使文示單一的一種字體格式，如果想使文本的字體多樣化，可以選擇本的字體多樣化，可以選擇RichEditRichEdit控件。控件。MemoMemo控件隸屬于控件隸屬于StandardStandard控件頁(yè)中?？丶?yè)中。 多行文本編輯框多行文本編輯框Memo Memo 主要屬性主要屬性 （1）Lines屬性：Lines是用于處理Memo對(duì)象中文本內(nèi)容的屬性，類(lèi)型為T(mén)strings，即字符串?dāng)?shù)組類(lèi)型Lines作為一種對(duì)象又有其自身的

19、方法Add方法、Delete方法、Insert方法、Move方法：如memo1.lines.add(A New line.)表示在最后增加一行。Memo組件的常用方法 Add方法：該方法用來(lái)向字符串列表的尾部添加一個(gè)字符串。其語(yǔ)法格式如下：memo1.lines.add(aaaa); Append方法：在最后添加一行文本，如emo1.lines.append(aaaa);與add不同的是append是過(guò)程，而add是函數(shù)。 Delete方法：該方法用來(lái)從字符串列表中刪除一個(gè)指定的字符串。其語(yǔ)法格式如下：memo1.lines.delete(0);/刪除行0文本 Insert方法：該方法用來(lái)向字

20、符串列表中插入一個(gè)字符串。其語(yǔ)法格式如下：memo1.lines.insert(2,ccc); Move方法:用于將一行文本從一個(gè)位置移動(dòng)另一個(gè)位置。其語(yǔ)法格式如下： memo1.lines.move(3,1)/ 將行3文本移到行1位置. LoadFromFile方法：該方法的作用是用指定的文件填充字符串列表。 SaveToFile方法：該方法用來(lái)把字符串列表中的數(shù)據(jù)寫(xiě)到某文件中去。（2）ScrollBars屬性 ScrollBars屬性用于控制滾動(dòng)條的狀態(tài)，取值分別為：取值取值說(shuō)明說(shuō)明ssNone無(wú)滾動(dòng)條ssHorizontal僅有水平滾動(dòng)條ssVerticall僅有垂直滾動(dòng)條ssBoth同

21、時(shí)具有水平垂直滾動(dòng)條（3）WantTabs屬性該屬性插入一個(gè)Tab字符，如果將WantTabs屬性設(shè)置為T(mén)rue時(shí)，按下Tab鍵，插入一個(gè)Tab字符，否則按Tab鍵將改變窗體上獲得焦點(diǎn)的組件。（4）wordwarp屬性該屬性決定memo組件是否具有自動(dòng)換行的功能，默認(rèn)值為ture表示當(dāng)輸入滿一行后有自動(dòng)換行的功能。（5）wantreturns屬性該屬性設(shè)置memo組件是否插入一個(gè)回車(chē)符，值為ture時(shí)按enter鍵插入一個(gè)回車(chē)符，否則按回車(chē)鍵事件由窗體處理，如果想輸入回車(chē)符則需按下ctrl+enter組合鍵。v多行文本編輯框多行文本編輯框Memo Memo 使用使用例：對(duì)例：對(duì)MemoMemo

22、控件中的文本進(jìn)行編輯，其中包控件中的文本進(jìn)行編輯，其中包括：剪切、復(fù)制、粘貼、刪除操作。括：剪切、復(fù)制、粘貼、刪除操作。 （1 1）創(chuàng)建應(yīng)用程序界面，在窗體設(shè)計(jì)器中添加）創(chuàng)建應(yīng)用程序界面，在窗體設(shè)計(jì)器中添加一個(gè)一個(gè)MemoMemo控件，四個(gè)控件，四個(gè)ButtonButton控件，并且分別將控件，并且分別將四個(gè)按鈕控件的四個(gè)按鈕控件的CaptionCaption屬性設(shè)置為屬性設(shè)置為“剪切剪切”、“復(fù)制復(fù)制”、“粘貼粘貼”和和“刪除刪除”，將，將Memo1Memo1控控件的件的LinesLines屬性設(shè)置為所需要的文字，屬性設(shè)置為所需要的文字， n（2 2）分別為四個(gè)按鈕的單擊事件編寫(xiě)代）分別為四

23、個(gè)按鈕的單擊事件編寫(xiě)代碼：碼：“剪切剪切”按鈕的單擊事件為：按鈕的單擊事件為：procedure TForm1.Button1Click(Sender: procedure TForm1.Button1Click(Sender: TObject);TObject);beginbeginMemo1.CutToClipboard;Memo1.CutToClipboard;end;end;“復(fù)制復(fù)制”按鈕的單擊事件為：按鈕的單擊事件為：procedure procedure TForm1.Button2Click(Sender: TForm1.Button2Click(Sender: TObject

24、);TObject);beginbegin Memo1.CopyToClipboard; Memo1.CopyToClipboard;end;end;“粘貼粘貼”按鈕的單擊事件為：按鈕的單擊事件為：procedure TForm1.Button3Click(Sender: procedure TForm1.Button3Click(Sender: TObject);TObject);beginbegin Memo1.PasteFromClipboard; Memo1.PasteFromClipboard;end;end;“刪除刪除”按鈕的單擊事件為：按鈕的單擊事件為：procedure pro

25、cedure TForm1.Button4Click(Sender: TForm1.Button4Click(Sender: TObject);TObject);beginbegin Memo1.SelText:=; Memo1.SelText:=;end;end;v豐富文本編輯框豐富文本編輯框RichEditRichEdit（ 該控件在Win32組件面板中）1常用屬性（1）SelStart以及SelLenght屬性：分別表示被選中文字的起始位置和長(zhǎng)度。（2）DefAttributes和SelAttributes屬性：分別為默認(rèn)字體的樣式和被選中文字字體的樣式。（3）Paragraph屬性：光

26、標(biāo)以及被選中的文字所在位置的段落屬性。 n2豐富文本編輯框RichEdit的使用RichEdit控件與Memo控件類(lèi)似，不同之處在于RichEdit可以對(duì)所輸入的文字單獨(dú)進(jìn)行字體的設(shè)置，類(lèi)似于Microsoft Office中的Word。 例：對(duì)例：對(duì)RichEditRichEdit控件中輸入的文字進(jìn)行字控件中輸入的文字進(jìn)行字體的設(shè)置體的設(shè)置 （1）創(chuàng)建應(yīng)用程序界面，在窗體設(shè)計(jì)器中添加一個(gè)RichEdit控件，以及六個(gè)按鈕控件，將三個(gè)按鈕控件的標(biāo)題（Caption）屬性分別設(shè)為“紅”、“黃”、“藍(lán)”、“隸書(shū)”、“宋體”以及“幼圓”，將RichEdit控件的Lines屬性設(shè)為空，F(xiàn)ont屬性中的

27、size（即字體大?。┰O(shè)為“24”，“紅”、“黃”、“藍(lán)”按鈕用于設(shè)置選中文字的顏色，“隸書(shū)”、“宋體”以及“幼圓”按鈕設(shè)置被選中文字的字體樣式。 n（2 2）編寫(xiě)按鈕所對(duì)應(yīng)的事件的代碼：）編寫(xiě)按鈕所對(duì)應(yīng)的事件的代碼： 單獨(dú)設(shè)置RichEdit控件中所選定的文本的字體時(shí)，需要使用到SelAttributes屬性，該屬性表示當(dāng)前選中文字的屬性，其中Color表示選中文字的顏色，而Name表示選中文字的字體樣式。 三種顏色所對(duì)應(yīng)的按鈕的單擊事件為：procedure TForm1.Button1Click(Sender: TObject); /紅色按鈕begin RichEdit1.SelAttributes.Color := rgb(255,0,0);end; procedure TForm1.Button2Click(Sender: TObject); /綠色按鈕begin RichEdit1.SelAttributes.Color := rgb(0,255,0);end;procedure TForm1.Button3Click(S