【正文】 ,mtInformation, [mbOK], 0)end。procedure (Sender: TObject。在適當?shù)氖录^程中編寫代碼，使得程序運行時，當點擊按鈕的時候，程序通過inputbox函數(shù)讓用戶輸入文本，然后放在第一個列表框中；當用戶雙擊第一個列表框中的項目的時候，指定的項目移動到第二個列表框中，反之亦然。 l SelCount屬性：在MultiSelect屬性值為True時，用來返回選中的列表項的個數(shù)。當用戶選定單選分組框中的一單選按鈕時，先前選定的單選按鈕就自動變?yōu)椴贿x定。l Checked屬性：該屬性用于標記單選按鈕的狀態(tài)。位圖按鈕使用最多的屬性就是Kind。當用戶選擇關(guān)閉modal窗體時，按鈕單擊設(shè)置ModalResult關(guān)閉窗體，賦給ModalResult的值成為ShowModal函數(shù)的返回值。屬性數(shù)據(jù)類型說明NameString按鈕的名稱，編寫程序代碼時使用它CaptionString按鈕的標題，就是按鈕上顯示的文字。使用這三個屬性就可以改變面板的外觀。procedure (Sender: TObject)。在用戶按“OK”按鈕后，系統(tǒng)會將用戶輸入的字符串返回給程序，相反，如果用戶按的是“Cancel”按鈕，系統(tǒng)會將默認字符串返回給程序。end。 Params: array of const)。我們可以選擇一個，然后進行必要的調(diào)整?！钡谝徊糠趾偷诙糠值姆指?。2.　在輸入格式中的第二部分只有0和1兩種選擇。a和Aa表示該位置只可能是一個字母或數(shù)字字符。 第三部分，指出掩碼中的代表未輸入數(shù)據(jù)的字符。APPEND() 在末追加一行文本例： (39。 virtual。WantReturns 為布爾型，它確定在該組件中用戶輸入的回車鍵是作為文本的內(nèi)容還是進入窗體中。保存。 …2． TEdit組件的常用方法SetFocus 該方法用于為編輯框設(shè)置焦點，無參數(shù)。編輯類組件的繼承關(guān)系1． TEdit組件的常用屬性Text 代表顯示在編輯框中的文本。2． 標簽的應(yīng)用：TabOrder屬性決定控件的接收焦點的順序。3. 設(shè)計一個透明窗體。靜態(tài)創(chuàng)建的窗體在運行時將全部裝入內(nèi)存。默認構(gòu)造方法是Create方法。procedure (Sender: TObject)。隸書39。如果需要動態(tài)地改變窗體Form1 中的圖標，可以調(diào)用下面的過程：(39。l FormStyle屬性可以分別實現(xiàn)各種類型的應(yīng)用程序，取值如下：取值含義FsNormal普通的窗體fsMDIChildMDI(多文檔窗體)的子窗體fsMDIFormMDI(多文檔窗體)的主窗體fsStayOnTop位于桌面頂層的窗體l BorderIcons屬性用來指定窗體標題欄上的圖標,該屬性為集合類型，取值如下:取值含義biSystemMenu在窗體的標題欄中顯示系統(tǒng)菜單biMinimize在窗體的標題欄中顯示最小化按鈕biMaximize在窗體的標題欄中顯示最大化按鈕biHelp在窗體的標題欄中顯示幫助按鈕, 只有窗體的BorderStyle 屬性設(shè)置為bsDialog或者窗體屬性BorderIcons 中不包括biMinimize 和biMaximize 時，biHelp 設(shè)置才有效。對于組件的屬性除必要進行設(shè)定的外，一般使用它的默認值。例如Tpanel 組件就是一個容器組件，可以在Tpanel組件中放置其他組件。在Delphi中，這些運行期間出現(xiàn)在窗體和對話框中的組件稱為可視組件。第三章Delphi的窗體與組件教學要求：掌握窗體、編輯類組件、按鈕類控件、列表類控件、分組類組件、時鐘組件、菜單組件、工具欄組件和工具按鈕、多選項卡的的屬性、方法與事件，學會使用這些組件設(shè)計應(yīng)用程序的界面。在窗體中，還可以放置一些運行期間非可視的組件，對應(yīng)其它的TComponent子類。Delphi 中的所有組件是在可視組件庫（Visual Component Library，縮寫為VCL）中封裝的。1．窗體的位置與大小窗體的位置與大小是由屬性Left、Top、Width、Height、ClientWidth、ClientHeight、Position、Align來確定的。l 確定窗體的邊界類型：BorderStyle屬性,該屬性為枚舉類型，取值如下取值含義bsDialog標準對話框邊框，邊框大小不可以改變。39。 :=20。3． Activate和Deactivate事件事件發(fā)生的條件：178。使用這種方法構(gòu)造的對象(變量)的值，是該對象實體數(shù)據(jù)所在的內(nèi)存地址。當窗體很多時，會引起系統(tǒng)資源緊張。從0開始。例1：利用標簽設(shè)計并控制文本的投影效果。ReadOnly 該屬性用來決定編輯框中顯示的文本是否可以修改。Clear 該方法用來清除編輯框中的所有文本，無參數(shù)。 4. 按照要求編寫程序：新建一個工程，在窗體中添加兩個文本框分別為“Edit1”、“Edit2”，默認顯示內(nèi)容為空。若WantReturns為True，則用戶輸入的回車鍵作為文本的部分；若WantReturns為False，則用戶輸入回車鍵時，激活窗體中的其它在WantReturns為False時，要在備注中輸入回車，使用Ctrl+Enter。 abstract。ssss39。EditText 該屬性代表TMaskEdit組件輸入的格式化文本。A表示該位置必須是一個字母或數(shù)字字符。如為1，則掩碼中的非用戶輸入數(shù)據(jù)和標準分隔符等其它各種字符會作為數(shù)據(jù)的一部分保存；為0則不保存?！?”將輸入后的區(qū)號括號作為數(shù)據(jù)的一部分。對話框左下部是一個Test Input欄，我們可以在這里輸入字符，以檢測輸入格式是否令人滿意。ShowMessageFmt過程的參數(shù)是一個格式字符串和一個數(shù)組，與Format函數(shù)相似，可以將用戶顯示的信息按一定格式顯示在對話框中。MessageDlgPos函數(shù)定義：function MessageDlgPos(const Msg: string。這個對話框經(jīng)常用來輸入用戶名稱或者用戶密碼。vary:string。BevelOuter確定面板組件的外部斜面?？梢詾榘粹o指定快捷鍵CancelBoolean具有ModalResult屬性的按鈕也是只讀的，使用ModalResult屬性可來關(guān)閉modal窗體。type TBitBtnKind = (bkCustom, bkOK, bkCancel, bkHelp, bkYes, bkNo, bkClose, bkAbort, bkRetry, bkIgnore, bkAll)。它確定了一個選項是否被選定。參見p79例14練習: 將上面的習題2用單選分組框組件來實現(xiàn) SpeedButton加速按鈕組件 加速按鈕組件位于組件面板的Additional標簽頁，常常被放在Panel組件上，它可以實現(xiàn)按鈕類組件的相應(yīng)功能。l Sorted屬性：用來設(shè)置列表框中的列表項是否按字母順序排序。程序編寫完畢后，運行，查看效果。 var Key: Word。3．OnKeyUp 事件當按下鍵盤上的任一個鍵后松開時，都會產(chǎn)生一個OnKeyUp 事件。 key！39。下面的一段代碼說明了OnKeyDown 事件的用法：當打印的時候在窗體中按下Esc 鍵后，取消打印作業(yè)。 2) 按照要求編寫程序：新建一個DELPHI工程，在窗體中添加一個按鈕，名稱為“Button1”，按鈕上顯示“添加項目”；添加兩個列表框，名稱分別為“List1”和“List2”。 l ExtendedSelect屬性：只有在MultiSelect屬性值為True時才起作用，用來決定列表框是否允許擴展多選。l Columns屬性設(shè)置Columns屬性的值，可使單選按鈕以單列或多列的方式顯示。l Alignment屬性：用來決定單選按鈕的標題文字出現(xiàn)的位置。l Kind屬性：決定位圖按鈕的種類。ModalResult的默認值為0，設(shè)置為非零值就可以設(shè)置窗體的modal狀態(tài)。 按鈕類控件按鈕類控件主要包括:基本按鈕button、位圖按鈕bitbtn、復(fù)選框checkbox、選項按鈕radiobutton button控件在標準頁標簽上。BevelInner屬性確定內(nèi)部斜面如何出現(xiàn)；BevelOuter屬性確定外部斜面如何出現(xiàn)。與inputbox函數(shù)相似，函數(shù)返回值是布爾值，當用戶按確認按鈕時，返回true,否則返回false. 前面兩個參數(shù)與inputbox相同，后面一個變量，初始值是默認值，當用戶單擊確認按鈕時，輸入的文本保存在該變量中。InputBox對話框上有兩個按鈕，“OK”按鈕和“Cancel”按鈕。 if x=mrok then … else …。2. ShowMessageFmt過程procedure ShowMessageFmt(const Msg: string。_　　在掩碼設(shè)計對話框的右側(cè)是Sample Masks，這里有系統(tǒng)預(yù)設(shè)的常用的掩碼格式，如電話號碼（Phone）、日期（Date）等。“。其中/在顯示時為‘－’而非/。L該位置必須是一個字符。216。 virtual。其語法格式如下：procedure Delete(Index: Integer)。WordWrap 用來決定當輸入的文本到達右邊界時是否插入軟回車，換到下一行輸入。 3. 新建一個工程，實現(xiàn)功能限制：在edit1中只能輸入10個字母，超過的在edit2中顯示。 :=3。Lines屬性訪問的文本被存儲在一個TStrings對象中，按動它的省略按鈕，可以通過對話框向它增加文本，也可以用程序?qū)@一屬性進行操作，以達到修改或增加備注文本的目的。Transparent 布爾型，用來確定標簽是否為透明的。l 程序運行中：用戶操作時（1） 鼠標單擊對象（visible enabled都為true）（2） 按Tab鍵或Shift+Tab在當前窗體的各對象之間巡回移動焦點（3） 按熱鍵選擇對象。2. 設(shè)計一個不能改變大小的窗體。Use unit2l 保存并運行。這兩個事件過程的基本語法形式為：procedure (Sender: TObject)。 :=39。通過菜單Tools/ Image Editor可運行Image Editor 編輯制作圖標。與窗體的外觀與樣式有關(guān)的屬性有：BorderIcons、BorderStyle、FormStyle、WindowStyle、HorzScrollBar和 VertScrollBar屬性等。 窗體的屬性窗體的屬性是與其外觀密切相關(guān)的。有些組件也具有窗體的“容器”屬性，也就是在這些組件中可以放置其它組件，通常這些組件稱為容器組件。通常，窗體中會有文字輸入、滾動條、復(fù)選框、單選框、按鈕等一系列組件，通過這些直觀易懂的組件，可以方便的實現(xiàn)多種多樣的功能。掌握ShowMessage、ShowMessageFmt、MassageDlg、MassageDlgPos、InputBox、InputQuery對話框函數(shù)與對話框過程的特點，并能熟練應(yīng)用。這些不可視組件集中地實現(xiàn)了一些特殊的功能?？梢暯M件庫是Delphi 中非常重要的一部分，不僅封裝了所有組件對應(yīng)的類，還封裝了一些通用的類。一般來說前四個屬性可以定義控件在它們所在的容器組件中的物理位置和大小，在Delphi中的可見組件都有這四個屬性，而不可見組件沒有這些屬性。bsSingle單線框，大小不可以改變bsNone窗體沒有邊框，也沒有標題欄，邊界的大小不可以改變, 邊框不能移動。)。 :=[fsbold,fsunderline,fsitalic]。 當激活窗體時，就產(chǎn)生Activate事件；178。默認的解構(gòu)方法是Destroy，推薦使用的是Free。通過動態(tài)創(chuàng)建的方法，在需要調(diào)用某個窗體時，臨時創(chuàng)建，使用完后立即釋放。TabStop屬性決定焦點是否能停在該控件上。包括靜態(tài)設(shè)置屬性，動態(tài)改變屬性。PasswordChar 用來決定用戶輸入的字符是原樣顯示還是以密碼方式顯示。ClearSelection 該方法用來清除編輯框中選中的文本，無參數(shù)。請設(shè)置適當?shù)目丶傩?，并編寫適當?shù)氖录^程，使得程序運行時，只能在Edit1中輸入數(shù)字，且每輸入一個字符，則顯示一個“*”，同時在Edit2中顯示輸入的內(nèi)容。WantTabs 屬性：該屬性為布爾型，它確定在該組件中是否可使用Tab鍵。Insert 用來向字符串列表中插入一個字符串。)。掩碼編輯框（MaskEdit）是一種特殊的編輯框。c和Cc表示該位置只可能是一個字母，C表示該位置必須有一個字母。　　3. 輸入格式的第三部分用于表示數(shù)據(jù)中的空位用那個字符代替顯示。若“0”，則括號不作為數(shù)據(jù)一部分，即得到的數(shù)據(jù)是區(qū)號和電話號碼直接相連（沒有括號）。 又例如：時間可以為 !90:00。參見P62例題5 MessageDlg與MessageDlgPos函數(shù)MessageDlg函數(shù)調(diào)用MessageDlg函數(shù)，可以在屏幕的中心處顯示信息對話框，其語法格式為： Function MessageDlg (const Msg: string。 DlgType: TMsgDlgType。該函數(shù)用于在程序運行過程中顯示一個包含字符串和按鈕信息的輸入對話框，用戶對這個對話框進行準確響應(yīng)后，才能關(guān)閉該對話框， 例如：procedure (Sender: TObject)。beginy:=39。BevelWidth 確定面板的內(nèi)部斜面和外部斜面的寬度(單為像素)。缺省值為