【正文】 框的樣式。例如：’abcdef’ 下列程序運(yùn)行后,edit1選中的文本是什么呢? … 。ClearUndo 該方法用來(lái)清除“撤消”緩沖區(qū)，從而不能對(duì)以前的操作做撤消操作，該方法無(wú)參數(shù)。參見(jiàn)p54例題2練習(xí):1. 新建一個(gè)工程，窗體上一個(gè)文本框edit1，兩個(gè)按鈕，caption分別為“剪切”，“恢復(fù)”，運(yùn)行后要求在edit1中輸入文本，點(diǎn)“剪切”，把edit1中的內(nèi)容剪切掉，點(diǎn)“恢復(fù)”，把edit1中的內(nèi)容恢復(fù)出來(lái)。5. 新建一個(gè)工程，實(shí)現(xiàn)功能：?jiǎn)螕鬳dit1框時(shí)，edit1中的內(nèi)容被全選。Lines 按行處理文本。也就是說(shuō)從其它組件中，用戶(hù)可以使用Tab鍵進(jìn)入該組件，但在該組件中使用Tab鍵不能進(jìn)入其它的組件。 abstract。 virtual。SaveToFile 該方法用來(lái)把字符串列表中的數(shù)據(jù)寫(xiě)到某文件中去。ssss39。 第二部分決定掩碼中的字符串是否作為數(shù)據(jù)的一部分。方法如下：首先在窗體上將MaskEdit選中，在對(duì)象查看器（Object Inspector）中找到EditMask屬性，雙擊它，彈出一個(gè)如下圖所示的對(duì)話(huà)框。在這一部分用一些特殊的格式符來(lái)表示應(yīng)輸入的字符類(lèi)型及格式，如!l0A9:Cll這樣一串輸入格式掩碼。格式符則和正好相反。_“\)”區(qū)號(hào)的右括號(hào)?！癬”等待用戶(hù)輸入時(shí)顯示的字符。又如一個(gè)郵編如PO100083，其中PO表示郵政，是每個(gè)郵政編碼中都有的前綴，可以這樣設(shè)計(jì)掩碼格式：!PO/000000。 ；IP地址可以為 !000\.000\.000\.000。ShowMessage過(guò)程的作用是顯示一個(gè)最簡(jiǎn)單的對(duì)話(huà)框，對(duì)話(huà)框以應(yīng)用程序的執(zhí)行文件名作為標(biāo)題，對(duì)話(huà)框右上側(cè)是一個(gè)關(guān)閉按鈕，在對(duì)話(huà)框中顯示了字符串常量，也就是用戶(hù)要顯示的信息內(nèi)容，可以使用回車(chē)符（＃13）使文本換行。 HelpCtx: Longint)：word；一般調(diào)用方式為 變量= MessageDlg(信息內(nèi)容,對(duì)話(huà)框類(lèi)型，按鈕組，HelpCtx)。請(qǐng)選擇39。 X, Y: Integer): Word。 InputBox對(duì)話(huà)框的函數(shù)說(shuō)明顯示有3個(gè)參數(shù)和1個(gè)返回值。請(qǐng)輸入：39。function InputQuery(const ACaption, APrompt: string。請(qǐng)輸入39。該組件用來(lái)在窗體上放置一面板，在面板上可以放置其它的組件。BorderStyle BorderStyle屬性確定面板邊界的類(lèi)型：bsNone，表示無(wú)邊界；bsSingle表示單線(xiàn)邊界。 若在該組件中放置另一窗口類(lèi)的組件，則該組件就稱(chēng)為父組件。若Cancel屬性為T(mén)rue，則無(wú)論何時(shí)用戶(hù)按Esc鍵時(shí)，該組件的OnClick事件處理程序就被執(zhí)行。l ModalResult屬性該屬性只為運(yùn)行的屬性。2． 按鈕組件的事件 與按鈕組件有關(guān)的主要事件有單擊事件（OnClick）、雙擊事件（OnDblClick）、OnEnter、OnExit、OnStartDrag、OnEndDrag等事件。要求yes,no按鈕不寫(xiě)任何代碼. BitBtn 按鈕組件 位圖按鈕組件位于組件面板的Additional標(biāo)簽頁(yè)，與Button組件所不同的是多了一個(gè)位圖符號(hào)在按鈕上，該組件用于創(chuàng)建一個(gè)其上帶有位圖的按鈕，其中大部分屬性和事件與Button一致，這里僅介紹它所獨(dú)有的屬性。l Checked屬性該屬性確定了一個(gè)選項(xiàng)是否被選定。 單選按鈕組件（RadioButton）（參看word表格排序）單選按鈕組件在標(biāo)準(zhǔn)頁(yè)標(biāo)簽上。2) 按照要求編寫(xiě)程序：新建一個(gè)DELPHI工程，在窗體中添加一個(gè)文本框，名稱(chēng)為“txtResult”，默認(rèn)顯示的內(nèi)容為空；添加一組單選按鈕，單選按鈕名稱(chēng)分別為“Op1”、“Op2”,顯示內(nèi)容分別為“飛機(jī)”、“火車(chē)”；再添加一組單選按鈕，單選按鈕名稱(chēng)分別為“Op3”、“Op4”,顯示內(nèi)容分別為“廣州”、“上海”；添加一個(gè)按鈕，名稱(chēng)為“btnShow”，按鈕上顯示“顯示”。編號(hào)從0開(kāi)始。常見(jiàn)的Windows操作系統(tǒng)中，顯示可用磁盤(pán)驅(qū)動(dòng)器時(shí)，用的就是ComboBox。l Selected屬性：用來(lái)測(cè)試某個(gè)列表項(xiàng)是否被選中。l MoveSelection方法：用來(lái)把列表框中的所有選中的列表項(xiàng)移動(dòng)到另一個(gè)列表框中。 　　　4點(diǎn)擊“＞＞”將List2中所有的選項(xiàng)添加到List1中，并將List2中的項(xiàng)清空。在窗體上建立一個(gè)列表框，一個(gè)命令按鈕。2．TTimer組件的事件OnTimer事件：在Enabled屬性值為T(mén)rue時(shí)，該事件每隔一定時(shí)間間隔自動(dòng)觸發(fā)，觸發(fā)的時(shí)間間隔由Interval屬性指定。Stop Print！39。You pressed：39。 var Key: Word。下面的一段代碼說(shuō)明了OnKeyDown 事件和OnKeyUp 事件的用法：varFormColor: TColor。 var Key: Char)。beginif (Key=VK_ESCAPE) and thenbegin。 TTimer時(shí)鐘組件的使用 1．TTimer組件的屬性 l Enabled屬性：該屬性用來(lái)設(shè)置程序運(yùn)行時(shí)定時(shí)器是否正在運(yùn)行。 l Style屬性：該屬性用來(lái)設(shè)置或返回組合框的風(fēng)格。 　　　2點(diǎn)擊“＞”將List2中所選中的項(xiàng)添加到List1中，并將List2中的項(xiàng)刪除。l ClearSelection方法：作用是清除列表框中所有被選中的選項(xiàng)。Columns=0 顯示一列，當(dāng)列表框空間不夠時(shí)，自動(dòng)加垂直滾動(dòng)條Columns0當(dāng)列表框空間足夠時(shí)，一般會(huì)顯示相應(yīng)的列數(shù)，當(dāng)不夠時(shí)，則自動(dòng)增加水平滾動(dòng)條，顯示多列。它和Bitbtn組件非常相似，也可以顯示圖像和文本，但通常只顯示圖像，它的特殊屬性如下。Items屬性中的每一行字符串使一單選按鈕出現(xiàn)在單選分組框中，其字符串就是單選按鈕的標(biāo)題。與單選按鈕組件有關(guān)的主要事件有單擊事件（OnClick）與雙擊事件（OnDblClick）、OnEnter、OnExit、OnStartDrag、OnEndDrag等事件。ValueMeaningcbUncheckedThe check box has no check mark, indicating that the user has not selected the option.cbCheckedThe check box has a check mark in it, indicating that the user has selected the option.cbGrayedThe check box has a check mark in it, but it is grayed.2．復(fù)選框組件的事件與復(fù)選框組件有關(guān)的主要事件有單擊事件（OnClick）與雙擊事件（OnDblClick）、OnEnter、OnExit、OnStartDrag、OnEndDrag等事件。1．復(fù)選框組件的屬性l ALIGNMENT 設(shè)定復(fù)選框標(biāo)題位置l AllowGrayed屬性該屬性為布爾型，它確定復(fù)選框是否可具有兩個(gè)或三個(gè)狀態(tài)。 在button2的onclick事件中添加代碼 :=’cancel’。當(dāng)用戶(hù)選擇其中一個(gè)按鈕時(shí)，則終止對(duì)話(huà)框的modal狀態(tài)。當(dāng)一按鈕成為焦點(diǎn)（激活時(shí)），它就成為臨時(shí)的默認(rèn)按鈕。Boolean其使用方法為在窗體上放置一分組框，然后將要出現(xiàn)在該組件中的組件放置其中。BorderWidth BorderWidth屬性用來(lái)確定面板邊界的寬度（單位象素）。參見(jiàn)p64例題6。4539。 showmessage(inttostr(x))。varx:integer。 InputBox與InputQuery函數(shù) InputBox對(duì)話(huà)框既能讓用戶(hù)對(duì)按鈕做選擇，又能讓用戶(hù)通過(guò)鍵盤(pán)輸入文字。 Buttons: TMsgDlgButtons。varx:integer。 DlgType: TMsgDlgType。_ text值：20060301EditText值：2006年03月01日參見(jiàn)p59例4 使用對(duì)話(huà)框函數(shù)與對(duì)話(huà)框過(guò)程 ShowMessage與ShowMessageFmt過(guò)程procedure ShowMessage(const Msg: string)。1。第三部分的“_”表示在掩碼編輯框中為空時(shí)，用“_”來(lái)表示空位?！?。因?yàn)槔ㄌ?hào)是特殊字符，所以在前面加“\”。!\(9999\)999999。!如有!表示數(shù)據(jù)前的空格將不被保存在數(shù)據(jù)中，沒(méi)有!則數(shù)據(jù)后的空格不被保存。9和09表示該位置只可能是一個(gè)數(shù)字，0表示該位置必須有一個(gè)數(shù)字。_ ”。使用它可以設(shè)計(jì)出許多復(fù)雜的輸入格式。 主要部分確定數(shù)據(jù)格式，特殊字符及其意義參見(jiàn)p65表313。//在最后增加一行 (5)。其語(yǔ)法格式如下：procedure LoadFromFile(const FileName: string)。其語(yǔ)法格式如下：procedure Insert(Index: Integer。其語(yǔ)法格式如下：procedure Clear。當(dāng)WantTabs為T(mén)rue可使用。 Memo控件1． TMemo組件的常用屬性 屬性說(shuō)明Caretpos ，y表示所在行，從0開(kāi)始計(jì)數(shù)。程序中不得使用任何變量。OnKeyDown 當(dāng)用戶(hù)按下鍵盤(pán)上的任何鍵時(shí)都會(huì)觸發(fā)該事件。SelectAll 該方法用來(lái)選中編輯框中的所有文本。CanUndo 用來(lái)指出對(duì)編輯框中顯示內(nèi)容的改變是否能夠撤消。 CharCase 用來(lái)控制編輯框中文本的大小寫(xiě)。這種設(shè)置為操作提供了方便，用戶(hù)不必每次先刪除原來(lái)的文本；但也可能會(huì)導(dǎo)致誤刪文本。課堂練習(xí):修改實(shí)驗(yàn)一的登錄窗體，設(shè)計(jì)如圖所示界面,對(duì)齊方式采用上下、左右均采用居中對(duì)齊，且當(dāng)按熱鍵U，P時(shí)編輯框1,2可分別獲得焦點(diǎn)。WordWrap 布爾型,用于設(shè)定組件文本寬于組件寬度時(shí)是否自動(dòng)換行Alignment 枚舉型，用來(lái)決定標(biāo)簽中顯示的文本的對(duì)齊方式 。False跳過(guò)該控件。窗體組件（FORM）常見(jiàn)屬性屬性說(shuō)明Active 指示此窗體是否擁有FOCUSActivecontrol 指示窗體中目前擁有FOCUS的組件Activemdichild 指示主窗體中目前擁有FOCUS的子窗體Activeolecontrol 用于取得或設(shè)定此窗體上的OLE控制，以響應(yīng)FOCUS改變Bordericons 指定哪些ICON顯示在窗體的TITLE BAR上Bordersytle 用以指定窗體BORDER外觀及行為Canvas 提供使用者可在窗體上CLIENT內(nèi)自行顯示的畫(huà)板，一般在ONPAINT事件中使用Clienthandle 提供可存取系統(tǒng)內(nèi)部使用的MDI CLIENT WINDOW HANDLEClientheight 窗體客戶(hù)區(qū)高度Clientrect 窗體客戶(hù)區(qū)所對(duì)應(yīng)的矩形Clientwidth 窗體客戶(hù)區(qū)寬度Defaultmonitor 指定此窗體所顯示的預(yù)設(shè)的顯示器，用于多顯示器環(huán)境下Designer 此窗體的設(shè)計(jì)界面，一般不用用戶(hù)設(shè)定Droptarget 用以指定窗體是否為目前DRAG AND Drop動(dòng)作的目標(biāo)Floating 用以指示此窗體是否正在停泊在另一個(gè)視窗內(nèi)Formstate 用于指示此窗體所處狀態(tài)Formstyle 用于指示窗體的樣式Helpfile 用于指定HELP文件Icon 指定窗體最小化時(shí)所顯示的ICONKeypreview 指定此窗體是否需在目前的ACTIVE組件之前取得鍵盤(pán)輸入Mdichildcount 用于取得子窗體數(shù)目Mdichildren 用于取得子窗體（數(shù)組）Menu 用于指定窗體主菜單Modalresult 當(dāng)窗體作用為MODAL對(duì)話(huà)框時(shí)，作為對(duì)話(huà)框的效果Monitor 用于指示窗體所顯示的顯示器Oldcreateorder 指定ONCreate和ONDESTROY事件何時(shí)發(fā)生Oleformobject 對(duì)包含在此窗體內(nèi)的OLE對(duì)象指定OLEFORM界面Parent 設(shè)定此窗體的PARENTParentbidimode 指定是否此窗體使用PARENT的BIDIMODEPixelsperinch 表示此窗體設(shè)計(jì)時(shí)系統(tǒng)上字形的比例Position 表示此窗體的大小及位置Printscale 表示此窗體打印的比例Scaled 用于指定窗體的大小是否依據(jù)PIXELSPERINTCH屬性來(lái)指定Tilemode 用于指定TILE方法被調(diào)用時(shí)子窗體如何排列Visible 用于設(shè)定此窗體是否被顯示W(wǎng)indowmenu 如果窗體是一個(gè)MDI PARENT窗體，用于指定視窗的菜單Windowstate 用于指定窗體如何顯示于屏幕中窗體組件（FORM）常見(jiàn)事件及說(shuō)明事件 說(shuō)明Onpaint 當(dāng)窗體必須重畫(huà)時(shí)發(fā)生Onhelp 當(dāng)窗體收到HELP請(qǐng)求時(shí)發(fā)生Ondragdrop 當(dāng)一個(gè)對(duì)象拉進(jìn)此窗體并丟下時(shí)發(fā)生Ondragover 當(dāng)一個(gè)對(duì)象拉進(jìn)此窗體時(shí)發(fā)生Onconstrainedresize 在ONCANRESIZE事件發(fā)生后發(fā)生Oncanresize 當(dāng)企圖改變窗體尺寸時(shí)確認(rèn)是否改變Onresize 當(dāng)窗體尺寸改變時(shí)發(fā)生Onstartdock 當(dāng)對(duì)象開(kāi)始停泊時(shí)發(fā)生Onenddock 當(dāng)對(duì)象停泊結(jié)束時(shí)發(fā)生Onundock 當(dāng)窗體解除停泊時(shí)發(fā)生Ondockdrop 當(dāng)其它窗體停泊到此組件時(shí)發(fā)生