【正文】 的作用是顯示一個最簡單的對話框，對話框以應(yīng)用程序的執(zhí)行文件名作為標(biāo)題，對話框右上側(cè)是一個關(guān)閉按鈕，在對話框中顯示了字符串常量，也就是用戶要顯示的信息內(nèi)容，可以使用回車符（＃13）使文本換行。在對話框下部是一個OK按鈕，單擊按鈕關(guān)閉對話框返回應(yīng)用程序。2. ShowMessageFmt過程procedure ShowMessageFmt(const Msg: string。 Params: array of const)。ShowMessageFmt過程的參數(shù)是一個格式字符串和一個數(shù)組，與Format函數(shù)相似，可以將用戶顯示的信息按一定格式顯示在對話框中。參見P62例題5 MessageDlg與MessageDlgPos函數(shù)MessageDlg函數(shù)調(diào)用MessageDlg函數(shù)，可以在屏幕的中心處顯示信息對話框，其語法格式為： Function MessageDlg (const Msg: string。 DlgType: TMsgDlgType。 Buttons: TMsgDlgButtons。 HelpCtx: Longint)：word；一般調(diào)用方式為 變量= MessageDlg(信息內(nèi)容,對話框類型，按鈕組，HelpCtx)。說明：（1） 信息內(nèi)容是顯示在對話框中的信息。（2） 對話框類型是對話框的類型，其取值 與意義見下表。取值意義mtWarning含有感嘆號符號的警告對話框mtErrot含有紅色叉符號的錯誤對話框mtInformation含有蘭色 i 符號的信息對話框mtConfirmation含有綠色？符號的確認(rèn)對話框mtCustom不含圖標(biāo)的一般對話框，對話框的標(biāo)題是程序的名稱（3） 按鈕組指定對話框中出現(xiàn)的按鈕組，其中出現(xiàn)的按鈕與參數(shù)的取值見表：取值意義mbYesYes按鈕，函數(shù)返回mrYes或6mbNoNo按鈕，函數(shù)返回mrNo或7mbOkOk按鈕，函數(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]表示對話框中出現(xiàn)兩個按鈕：“Yes”和“No”；也可以常量的形式，如mbOKCancel表示對話框中出現(xiàn)兩個按鈕：“OK”和“Cancel”。按鈕常量的含義參見下表：常量意義mbYesNoCancel三個按鈕：mbYes、mbNo、mbCancelmbOKCancel兩個按鈕：mbOK、mbCancelmbAbortRetryIgnore三個按鈕：mbAbort、mbRetry、mbIgnore（4） HelpCtx指定當(dāng)用戶單擊“Help”按鈕或按F1鍵時，顯示的幫助主題。（5） MessageDlg函數(shù)將根據(jù)用戶所選擇的按鈕，返回相應(yīng)的值(Word類型)例如：procedure (Sender: TObject)。varx:integer。begin x:=MessageDlg (39。請選擇39。, mtconfirmation, mbokcancel, 1)。 if x=mrok then … else …。end。MessageDlgPos函數(shù)定義：function MessageDlgPos(const Msg: string。 DlgType: TMsgDlgType。 Buttons: TMsgDlgButtons。 HelpCtx: Longint。 X, Y: Integer): Word。比MessageDlg多了一項功能，就是可以自由定位對話框的顯示區(qū)域，由x,y確定。 CreateMessageDialog函數(shù)function CreateMessageDialog(const Msg: string。 DlgType: TMsgDlgType。 Buttons: TMsgDlgButtons): TForm。 僅產(chǎn)生一個信息框窗體，需要時可采用窗體的showmodal方法顯示。 InputBox與InputQuery函數(shù) InputBox對話框既能讓用戶對按鈕做選擇，又能讓用戶通過鍵盤輸入文字。在Dialogs單元文件中有如下定義： function InputBox(const ACaption, APrompt, ADefault: string): string。 InputBox對話框的函數(shù)說明顯示有3個參數(shù)和1個返回值。參數(shù)Acaption是對話框的標(biāo)題；參數(shù)Aprompt是對話框的提示文字；參數(shù)Adefault是代表默認(rèn)字符串。InputBox對話框上有兩個按鈕，“OK”按鈕和“Cancel”按鈕。在用戶按“OK”按鈕后，系統(tǒng)會將用戶輸入的字符串返回給程序，相反，如果用戶按的是“Cancel”按鈕，系統(tǒng)會將默認(rèn)字符串返回給程序。這個對話框經(jīng)常用來輸入用戶名稱或者用戶密碼。該函數(shù)用于在程序運(yùn)行過程中顯示一個包含字符串和按鈕信息的輸入對話框，用戶對這個對話框進(jìn)行準(zhǔn)確響應(yīng)后，才能關(guān)閉該對話框， 例如：procedure (Sender: TObject)。varx:integer。begin x:=strtoint(inputbox(39。請輸入：39。,39。年齡 39。,39。1539。))。 showmessage(inttostr(x))。end。function InputQuery(const ACaption, APrompt: string。 var Value: string): Boolean。與inputbox函數(shù)相似，函數(shù)返回值是布爾值，當(dāng)用戶按確認(rèn)按鈕時，返回true,否則返回false. 前面兩個參數(shù)與inputbox相同，后面一個變量，初始值是默認(rèn)值，當(dāng)用戶單擊確認(rèn)按鈕時，輸入的文本保存在該變量中。procedure (Sender: TObject)。vary:string。beginy:=39。4539。 InputQuery(39。請輸入39。, 39。年齡39。,y)。 showmessage(y)。end。參見p64例題6。 用于分組的控件 Panel控件面板組件在標(biāo)準(zhǔn)(Standard)頁標(biāo)簽上。該組件用來在窗體上放置一面板，在面板上可以放置其它的組件。（用于作容器）面板組件的屬性BevelInner 確定面板組件的內(nèi)部斜面。BevelInner屬性確定內(nèi)部斜面如何出現(xiàn)；BevelOuter屬性確定外部斜面如何出現(xiàn)。使用這三個屬性就可以改變面板的外觀。BevelOuter確定面板組件的外部斜面。BevelWidth 確定面板的內(nèi)部斜面和外部斜面的寬度(單為像素)。BorderWidth BorderWidth屬性用來確定面板邊界的寬度（單位象素）。默認(rèn)值為0，即沒有邊界。BorderStyle BorderStyle屬性確定面板邊界的類型：bsNone，表示無邊界；bsSingle表示單線邊界。Ctrl3DCtrl3D屬性確定面板是否為立體的Cursor Cursor屬性用來確定當(dāng)鼠標(biāo)指針移動到面板上時，鼠標(biāo)指針的形狀。面板組件的事件 與面板組件有關(guān)的主要事件有單擊事件（OnClick）與雙擊事件（OnDblClick）、OnEnter、OnExit、OnStartDrag、OnEndDrag等事件。參見p68,69例題7,8 GroupBox控件 分組框組件在標(biāo)準(zhǔn)頁標(biāo)簽上。（用于作容器）該組件為標(biāo)準(zhǔn)的Windows分組框，使用它可以將窗體上的相關(guān)的組件成組。在該組件中成組的最常見組件為單選按鈕。其使用方法為在窗體上放置一分組框，然后將要出現(xiàn)在該組件中的組件放置其中。 Caption: 屬性的值用來表明該組件的用途。 若在該組件中放置另一窗口類的組件，則該組件就稱為父組件。參見p70例題9。 按鈕類控件按鈕類控件主要包括:基本按鈕button、位圖按鈕bitbtn、復(fù)選框checkbox、選項按鈕radiobutton button控件在標(biāo)準(zhǔn)頁標(biāo)簽上。屬性數(shù)據(jù)類型說明NameString按鈕的名稱，編寫程序代碼時使用它CaptionString按鈕的標(biāo)題，就是按鈕上顯示的文字?？梢詾榘粹o指定快捷鍵CancelBoolean缺省值為False，當(dāng)取值為True時，無論何時按下Esc鍵，按鈕中Taborder值最小的按鈕會產(chǎn)生Onclick事件DefaultBoolean當(dāng)屬性值為True時，按下Enter鍵，當(dāng)前按鈕產(chǎn)生Onclick事件，缺省值為TrueHintString按鈕的提示文本保存在這里，當(dāng)鼠標(biāo)光標(biāo)停留時，顯示提示文本ShowhintBoolean確定是否顯示提示文本，缺省值為False1． 按鈕組件的屬性l Cancel屬性該屬性為布爾型，它確定該組件是否為取消按鈕。若Cancel屬性為True，則無論何時用戶按Esc鍵時，該組件的OnClick事件處理程序就被執(zhí)行。雖然窗體中可以設(shè)計多個取消按鈕，但只執(zhí)行可見的Tab鍵次序中第一個按鈕的OnClick事件處理程序。l Default屬性該屬性為布爾型，它確定該組件是否為默認(rèn)按鈕。若Default屬性為True，則無論何時用戶按回車鍵時，該組件的OnClick事件處理程序就被執(zhí)行。唯一的例外是若用戶在按回車鍵，選定了其它的按l鈕，則執(zhí)行該按鈕的OnClick事件處理程序。雖然窗體中可以設(shè)計多個默認(rèn)按鈕，但只執(zhí)行Tab鍵次序中第一個按鈕的OnClick事件處理程序。當(dāng)一按鈕成為焦點(diǎn)（激活時），它就成為臨時的默認(rèn)按鈕。但當(dāng)焦點(diǎn)移動到其它非按鈕的組件上時，Default屬性值為True的按鈕就成為默認(rèn)的按鈕。l ModalResult屬性該屬性只為運(yùn)行的屬性。窗體的ModalResult屬性用來終止modal窗體。ModalResult的默認(rèn)值為0，設(shè)置為非零值就可以設(shè)置窗體的modal狀態(tài)。當(dāng)用戶選擇關(guān)閉modal窗體時，按鈕單擊設(shè)置ModalResult關(guān)閉窗體，賦給ModalResult的值成為ShowModal函數(shù)的返回值。具有ModalResult屬性的按鈕也是只讀的，使用ModalResult屬性可來關(guān)閉modal窗體。如建立一個具有兩個按鈕的對話框：確定及取消按鈕，確定按鈕的ModalResult屬性設(shè)置為mrOK，取消按鈕設(shè)置為mrCancel。當(dāng)用戶選擇其中一個按鈕時，則終止對話框的modal狀態(tài)。因此使用ModalResult屬性就可以在不編寫事件處理程序的情況下關(guān)閉對話框。2． 按鈕組件的事件 與按鈕組件有關(guān)的主要事件有單擊事件（OnClick）、雙擊事件（OnDblClick）、OnEnter、OnExit、OnStartDrag、OnEndDrag等事件。ONCLICK的激發(fā)：l 用戶使用鼠標(biāo)單擊按鈕l 當(dāng)按鈕獲得焦點(diǎn)時，按ENTER鍵或空格鍵。練習(xí):1. 在名稱為Form1的窗體上建立二個名稱分別為CmdCmd2，標(biāo)題為按鈕一、按鈕二的命令按鈕。要求程序運(yùn)行后，如果單擊按鈕一，則把按鈕二移到按鈕一上，使兩個按鈕重合。 注意： 在程序中不得使用任何變量（必須通過屬性設(shè)置來移動控件）。2. 在名稱為Form1的窗體上建立一個文本框,二個名稱分別為buttonbutton2按鈕在button1的onclick事件中添加代碼 :=’default’。 在button2的onclick事件中添加代碼 :=’cancel’。要求當(dāng)程序運(yùn)行時，焦點(diǎn)在編輯框上，當(dāng)按回車鍵時，執(zhí)行button1的onclick事件，按esc鍵時，執(zhí)行button2的onclick事件3. 建立如圖所示兩窗體Form2是主窗體,當(dāng)點(diǎn)擊退出程序按鈕時，窗體yes顯示，當(dāng)按yes按鈕時，關(guān)閉整個程序，當(dāng)按no按鈕時，自動關(guān)閉當(dāng)前窗體，回到第一個窗體。要求yes,no按鈕不寫任何代碼. BitBtn 按鈕組件 位圖按鈕組件位于組件面板的Additional標(biāo)簽頁，與Button組件所不同的是多了一個位圖符號在按鈕上，該組件用于創(chuàng)建一個其上帶有位圖的按鈕，其中大部分屬性和事件與Button一致，這里僅介紹它所獨(dú)有的屬性。 常用屬性與事件： Kind屬性 Glyph屬性 NumGlyphs屬性 Layout屬性 OnClick事件l MARGIN: 用以設(shè)定按鈕邊與圖像邊之間的距離（以象素為單位）l NUMGLYPHS: 用以設(shè)定按鈕圖像的數(shù)目l SPACING:用以設(shè)定圖像與文本之間的距離（以象素為單位）l Glyph屬性：為按鈕指定一個位圖文件，顯示在按鈕的表面。l Kind屬性：決定位圖按鈕的種類。位圖按鈕使用最多的屬性就是Kind。type TBitBtnKind = (bkCustom, bkOK, bkCancel, bkHelp, bkYes, bkNo, bkClose, bkAbort, bkRetry, bkIgnore, bkAll)。參見p73例題10 復(fù)選框組件（CheckBox）(參看word段落設(shè)置)復(fù)選框組件在標(biāo)準(zhǔn)頁標(biāo)簽上。1．復(fù)選框組件的屬性l ALIGNMENT 設(shè)定