【正文】 mbOkOk按鈕，函數(shù)返回mrOk或1mbCancelCancel按鈕，函數(shù)返回mrCancel或2mbHelpHelp按鈕mbAbortAbort按鈕，函數(shù)返回mrAbort或3mbRetryRetry按鈕，函數(shù)返回mrRetry或4mbIgnoreIgnore按鈕，函數(shù)返回mrIgnore或5mbAllAll按鈕，函數(shù)返回mrAll或8mbNoToAllNoToAll按鈕，函數(shù)返回或9mbYesToAllYesToAll按鈕，函數(shù)返回或10按鈕組可以組的形式，如[mbYes，mbNo]表示對(duì)話框中出現(xiàn)兩個(gè)按鈕：“Yes”和“No”；也可以常量的形式，如mbOKCancel表示對(duì)話框中出現(xiàn)兩個(gè)按鈕：“OK”和“Cancel”。（5） MessageDlg函數(shù)將根據(jù)用戶所選擇的按鈕，返回相應(yīng)的值(Word類型)例如：procedure (Sender: TObject)。begin x:=MessageDlg (39。, mtconfirmation, mbokcancel, 1)。end。 DlgType: TMsgDlgType。 HelpCtx: Longint。比MessageDlg多了一項(xiàng)功能，就是可以自由定位對(duì)話框的顯示區(qū)域，由x,y確定。 DlgType: TMsgDlgType。 僅產(chǎn)生一個(gè)信息框窗體，需要時(shí)可采用窗體的showmodal方法顯示。在Dialogs單元文件中有如下定義： function InputBox(const ACaption, APrompt, ADefault: string): string。參數(shù)Acaption是對(duì)話框的標(biāo)題；參數(shù)Aprompt是對(duì)話框的提示文字；參數(shù)Adefault是代表默認(rèn)字符串。在用戶按“OK”按鈕后，系統(tǒng)會(huì)將用戶輸入的字符串返回給程序，相反，如果用戶按的是“Cancel”按鈕，系統(tǒng)會(huì)將默認(rèn)字符串返回給程序。該函數(shù)用于在程序運(yùn)行過(guò)程中顯示一個(gè)包含字符串和按鈕信息的輸入對(duì)話框，用戶對(duì)這個(gè)對(duì)話框進(jìn)行準(zhǔn)確響應(yīng)后，才能關(guān)閉該對(duì)話框， 例如：procedure (Sender: TObject)。begin x:=strtoint(inputbox(39。,39。,39。))。end。 var Value: string): Boolean。procedure (Sender: TObject)。beginy:=39。 InputQuery(39。, 39。,y)。end。 用于分組的控件 Panel控件面板組件在標(biāo)準(zhǔn)(Standard)頁(yè)標(biāo)簽上。（用于作容器）面板組件的屬性BevelInner 確定面板組件的內(nèi)部斜面。使用這三個(gè)屬性就可以改變面板的外觀。BevelWidth 確定面板的內(nèi)部斜面和外部斜面的寬度(單為像素)。默認(rèn)值為0，即沒(méi)有邊界。Ctrl3DCtrl3D屬性確定面板是否為立體的Cursor Cursor屬性用來(lái)確定當(dāng)鼠標(biāo)指針移動(dòng)到面板上時(shí)，鼠標(biāo)指針的形狀。參見(jiàn)p68,69例題7,8 GroupBox控件 分組框組件在標(biāo)準(zhǔn)頁(yè)標(biāo)簽上。在該組件中成組的最常見(jiàn)組件為單選按鈕。 Caption: 屬性的值用來(lái)表明該組件的用途。參見(jiàn)p70例題9。屬性數(shù)據(jù)類型說(shuō)明NameString按鈕的名稱，編寫(xiě)程序代碼時(shí)使用它CaptionString按鈕的標(biāo)題，就是按鈕上顯示的文字。缺省值為False，當(dāng)取值為T(mén)rue時(shí)，無(wú)論何時(shí)按下Esc鍵，按鈕中Taborder值最小的按鈕會(huì)產(chǎn)生Onclick事件Default當(dāng)屬性值為T(mén)rue時(shí)，按下Enter鍵，當(dāng)前按鈕產(chǎn)生Onclick事件，缺省值為T(mén)rueHintString按鈕的提示文本保存在這里，當(dāng)鼠標(biāo)光標(biāo)停留時(shí)，顯示提示文本ShowhintBoolean確定是否顯示提示文本，缺省值為False1． 按鈕組件的屬性l Cancel屬性該屬性為布爾型，它確定該組件是否為取消按鈕。雖然窗體中可以設(shè)計(jì)多個(gè)取消按鈕，但只執(zhí)行可見(jiàn)的Tab鍵次序中第一個(gè)按鈕的OnClick事件處理程序。若Default屬性為T(mén)rue，則無(wú)論何時(shí)用戶按回車(chē)鍵時(shí)，該組件的OnClick事件處理程序就被執(zhí)行。雖然窗體中可以設(shè)計(jì)多個(gè)默認(rèn)按鈕，但只執(zhí)行Tab鍵次序中第一個(gè)按鈕的OnClick事件處理程序。但當(dāng)焦點(diǎn)移動(dòng)到其它非按鈕的組件上時(shí)，Default屬性值為T(mén)rue的按鈕就成為默認(rèn)的按鈕。窗體的ModalResult屬性用來(lái)終止modal窗體。當(dāng)用戶選擇關(guān)閉modal窗體時(shí)，按鈕單擊設(shè)置ModalResult關(guān)閉窗體，賦給ModalResult的值成為ShowModal函數(shù)的返回值。如建立一個(gè)具有兩個(gè)按鈕的對(duì)話框：確定及取消按鈕，確定按鈕的ModalResult屬性設(shè)置為mrOK，取消按鈕設(shè)置為mrCancel。因此使用ModalResult屬性就可以在不編寫(xiě)事件處理程序的情況下關(guān)閉對(duì)話框。ONCLICK的激發(fā)：l 用戶使用鼠標(biāo)單擊按鈕l 當(dāng)按鈕獲得焦點(diǎn)時(shí)，按ENTER鍵或空格鍵。要求程序運(yùn)行后，如果單擊按鈕一，則把按鈕二移到按鈕一上，使兩個(gè)按鈕重合。2. 在名稱為Form1的窗體上建立一個(gè)文本框,二個(gè)名稱分別為buttonbutton2按鈕在button1的onclick事件中添加代碼 :=’default’。要求當(dāng)程序運(yùn)行時(shí)，焦點(diǎn)在編輯框上，當(dāng)按回車(chē)鍵時(shí)，執(zhí)行button1的onclick事件，按esc鍵時(shí)，執(zhí)行button2的onclick事件3. 建立如圖所示兩窗體Form2是主窗體,當(dāng)點(diǎn)擊退出程序按鈕時(shí)，窗體yes顯示，當(dāng)按yes按鈕時(shí)，關(guān)閉整個(gè)程序，當(dāng)按no按鈕時(shí)，自動(dòng)關(guān)閉當(dāng)前窗體，回到第一個(gè)窗體。 常用屬性與事件： Kind屬性 Glyph屬性 NumGlyphs屬性 Layout屬性 OnClick事件l MARGIN: 用以設(shè)定按鈕邊與圖像邊之間的距離（以象素為單位）l NUMGLYPHS: 用以設(shè)定按鈕圖像的數(shù)目l SPACING:用以設(shè)定圖像與文本之間的距離（以象素為單位）l Glyph屬性：為按鈕指定一個(gè)位圖文件，顯示在按鈕的表面。位圖按鈕使用最多的屬性就是Kind。參見(jiàn)p73例題10 復(fù)選框組件（CheckBox）(參看word段落設(shè)置)復(fù)選框組件在標(biāo)準(zhǔn)頁(yè)標(biāo)簽上。默認(rèn)值為False，就是單擊復(fù)選框可以選定及不選定該組件；AllowGrayed屬性的值為T(mén)rue，單擊復(fù)選框可以選定、不選定或變灰該組件。該選項(xiàng)為一布爾型，當(dāng)為T(mén)rue時(shí)，復(fù)選框中出現(xiàn)復(fù)選標(biāo)記，表示選項(xiàng)選定；當(dāng)為False時(shí)，沒(méi)有復(fù)選標(biāo)記時(shí)，表示選項(xiàng)沒(méi)有選定。l State屬性State屬性確定復(fù)選框可能有的各種狀態(tài)。property State: TCheckBoxState。參見(jiàn)p74例11練習(xí)：建一個(gè)工程，放置多個(gè)checkbox,并放一個(gè)按扭，點(diǎn)擊按鈕能統(tǒng)計(jì)有多少個(gè)checkbox被選，用showmessage將數(shù)字顯示出來(lái)，保存。（提供互斥選項(xiàng)，因此通常用于成組實(shí)現(xiàn)，可用GROUPBOX或RADIOGROUP實(shí)現(xiàn)）l Caption屬性：用來(lái)設(shè)置單選按鈕的提示文字。l Checked屬性：該屬性用于標(biāo)記單選按鈕的狀態(tài)。該選項(xiàng)為一布爾型，其值為T(mén)rue時(shí)，單選按鈕中出現(xiàn)黑圓(表示選項(xiàng)選定)；其值為False時(shí)，單選按鈕中未出現(xiàn)黑圓(表示選項(xiàng)未選定)。參見(jiàn)p76例12 p78例13課堂練習(xí)：1) 編寫(xiě)程序，要求：輸入半徑，利用選項(xiàng)按紐，選擇運(yùn)算：面積、計(jì)算周長(zhǎng)等。在適當(dāng)?shù)氖录^(guò)程中編寫(xiě)代碼，使得程序運(yùn)行時(shí)，當(dāng)點(diǎn)擊按鈕的時(shí)候，程序完成以下功能：根據(jù)選中的單選按鈕，在文本框中顯示“坐什么去哪里”。 單選分組框組件（RadioGroup）單選分組框組件在標(biāo)準(zhǔn)頁(yè)標(biāo)簽上。主要屬性：l CAPTION 指示單選組合名稱l Items屬性當(dāng)在Items屬性中輸入一行字符串時(shí)，一單選按鈕就添加到該組件中。l ItemIndex屬性其值確定當(dāng)前選定的單選按鈕。默認(rèn)值是1,表示未選中。當(dāng)用戶選定單選分組框中的一單選按鈕時(shí)，先前選定的單選按鈕就自動(dòng)變?yōu)椴贿x定。另外可以將多個(gè)SpeedButton放置在一個(gè)窗口類組件上，例如Panel（面板）、GroupBox（組框），是進(jìn)行工具欄快速設(shè)計(jì)的理想組件。l ALLOWALLUP 用以設(shè)定是否包含此快速鈕的組中是否能同時(shí)保持UP狀態(tài)l DOWN 用以設(shè)定此快速鈕是否已被選取l FLAT 用以設(shè)定此快速鈕是否顯示3D邊的效果l GROUPINDEX 用以設(shè)定快速鈕的分組，同一組同一個(gè)編號(hào)l TRANSPARENT 用以設(shè)定快速鈕是否透明 列表類組件的使用ListBox和ComboBox都用來(lái)顯示列表項(xiàng)目，所不同的是ComboBox占用較少的空間。ListBox則提供了一個(gè)項(xiàng)目列表以供選擇，如Windows打開(kāi)文件操作時(shí)顯示文件列表的就是ListBox。l ItemIndex屬性：用來(lái)設(shè)置或返回選中的列表項(xiàng)的序號(hào)，第一個(gè)列表項(xiàng)的序號(hào)值為0。l Integralheight （true 自動(dòng)調(diào)整列表框的高度，列表框中的最后一行可完整顯示） (false 不自動(dòng)調(diào)整列表框的高度，列表框中的最后一行可能不被完整顯示) l Columns屬性：用來(lái)設(shè)置在列表框中顯示列表項(xiàng)的列數(shù)。l Count屬性：運(yùn)行屬性，用來(lái)返回列表框中列表項(xiàng)的數(shù)目。l MultiSelect屬性：用來(lái)設(shè)置能否在列表框中選擇多個(gè)列表項(xiàng)，即是否允許多選。 l SelCount屬性：在MultiSelect屬性值為T(mén)rue時(shí)，用來(lái)返回選中的列表項(xiàng)的個(gè)數(shù)。l STYLE:指示列表框顯示模式（lbStandard, lbOwnerDrawFixed, lbOwnerDrawVariable）l CANVAS： 提供自定義顯示列表框項(xiàng)目?jī)?nèi)容的畫(huà)板，用于ONDRAWITEM事件l Clear方法：作用是清除列表框中的所有列表項(xiàng)，無(wú)參數(shù)。l SelectAll方法：用來(lái)選中列表框中的所有文本。l CopySelection方法：用來(lái)把列表框中的所有選中的列表項(xiàng)復(fù)制到另一個(gè)列表框中。參見(jiàn)p82例15，84例161) 新建一個(gè)工程，左右兩邊各放置一個(gè)列表框ListBox的控件List1和List2，在List1中豎排顯示內(nèi)容“第一題、第二題、第三題、第四題、第五題”這五項(xiàng)。實(shí)現(xiàn)程序功能： 　　　1點(diǎn)擊“＜”將List1中所選中的項(xiàng)添加到List2中，并將List1中的項(xiàng)刪除。 　　　3點(diǎn)擊“＜＜”將Lixt1中所有的選項(xiàng)添加到List2中，并將List1中的項(xiàng)清空。 最后保存。在適當(dāng)?shù)氖录^(guò)程中編寫(xiě)代碼，使得程序運(yùn)行時(shí)，當(dāng)點(diǎn)擊按鈕的時(shí)候，程序通過(guò)inputbox函數(shù)讓用戶輸入文本，然后放在第一個(gè)列表框中；當(dāng)用戶雙擊第一個(gè)列表框中的項(xiàng)目的時(shí)候，指定的項(xiàng)目移動(dòng)到第二個(gè)列表框中，反之亦然。保存程序. TComboBox組件 l DropDownCount屬性：該屬性用來(lái)設(shè)置組合框的列表框中所能顯示的列表項(xiàng)的最大數(shù)目，默認(rèn)情況下，列表框中可以顯示8個(gè)列表項(xiàng)，當(dāng)超過(guò)8個(gè)列表框時(shí)將顯示出垂直滾動(dòng)條。 Style屬性值 說(shuō)明CsDropDown 組合框的編輯框中可以輸入，同時(shí)下拉式列表框是一組具有等高度的字符串CsDropDownList 組合框的編輯框?yàn)橹蛔x的，而且編輯框中的內(nèi)容只能在從列表框中選擇CsSimple 只有一個(gè)編輯框顯示，可以在編輯框中輸入字符串，也可以通過(guò)上、下箭頭鍵改變編輯框中的內(nèi)容CsOwnerDrawFixed 組合框由一個(gè)只讀編輯框和條目高度相等的列表框組成，條目的高度由屬性ItemHeight 確定CsOwnerDrawVariable 在組合框由一個(gè)只讀編輯框和列表框組成，條目的高度可以不同l Droppeddown: 用于判定組合框是否處于下拉菜單的狀態(tài)2．下拉列表框參見(jiàn)p87 例173．簡(jiǎn)單組合框 參見(jiàn)p88 例184．下拉組合框 參見(jiàn)p90 例19練習(xí)：1）編寫(xiě)程序，演示列表框和組合框2個(gè)組件的基本操作。程序運(yùn)行后，在列表框中選擇所需要的項(xiàng)目（可多選），單擊“添加”按鈕，可把所選擇的項(xiàng)目添加到組合框的下拉選單中。當(dāng)用戶點(diǎn)擊ComboBox中的列表項(xiàng)時(shí)，編輯框的字體會(huì)隨之變化。 := 。l Interval屬性：該屬性用來(lái)設(shè)置定時(shí)器兩次OnTimer事件發(fā)生的時(shí)間間隔，以毫秒為單位。 設(shè)計(jì)一個(gè)電子表參見(jiàn)p91 例20 設(shè)計(jì)一個(gè)計(jì)時(shí)器參見(jiàn)p93 例21 設(shè)計(jì)一個(gè)流動(dòng)字幕板 參見(jiàn)p96 例22 常用的鍵盤(pán)事件1．OnKeyDown 事件當(dāng)按下鍵盤(pán)上的任一個(gè)鍵，如字母鍵、數(shù)字鍵、功能鍵（F1F12）、Ctrl 鍵、Shift 鍵或Alt 鍵等，都將產(chǎn)生一個(gè)OnKeyDown 事件。procedure (Sender: TObject。Shift: TShiftState)。 // 中止打印MessageDlg(39。, mtInformation, [mbOK],0)。end。下面的一段顯示按下的鍵的代碼說(shuō)明了OnKeyPress 事件的用法：procedure (Sender: TObject。beginMessageDlg ( 39。+Key+39。,mtInformation, [mbOK], 0)end。對(duì)于功能鍵（F1F12）、Ctrl 鍵、Shift 鍵或Alt 鍵等，也會(huì)產(chǎn)生一個(gè)OnKeyUp 事件。 // 用來(lái)保存窗體原來(lái)的顏色procedure (Sender: TObject。Shift: TShiftState)。 :=