【正文】 // 當鍵按下時先保存窗體的顏色然后再改變窗體的顏色beginFormColor := 。 var Key: Word。下面的一段代碼說明了OnKeyDown 事件和OnKeyUp 事件的用法：varFormColor: TColor。3．OnKeyUp 事件當按下鍵盤上的任一個鍵后松開時，都會產生一個OnKeyUp 事件。 key！39。You pressed：39。 var Key: Char)。2．OnKeyPress 事件當按下鍵盤上的一個字符鍵，如字母鍵、數(shù)字鍵等會產生一個OnKeyPress 事件，但是單獨按下功能鍵（F1F12）、Ctrl 鍵、Shift 鍵或Alt 鍵等，不會產生OnKeyPress 事件。end。Stop Print！39。beginif (Key=VK_ESCAPE) and thenbegin。 var Key: Word。下面的一段代碼說明了OnKeyDown 事件的用法：當打印的時候在窗體中按下Esc 鍵后，取消打印作業(yè)。2．TTimer組件的事件OnTimer事件：在Enabled屬性值為True時，該事件每隔一定時間間隔自動觸發(fā)，觸發(fā)的時間間隔由Interval屬性指定。 TTimer時鐘組件的使用 1．TTimer組件的屬性 l Enabled屬性：該屬性用來設置程序運行時定時器是否正在運行。保存。2)新建一個工程，窗體上放置ComboBox和編輯框組件，實現(xiàn)窗體創(chuàng)建時，讀取系統(tǒng)的漢字字型，在ComboBox列表框中顯示。在窗體上建立一個列表框，一個命令按鈕。 l Style屬性：該屬性用來設置或返回組合框的風格。程序編寫完畢后，運行，查看效果。 2) 按照要求編寫程序：新建一個DELPHI工程，在窗體中添加一個按鈕，名稱為“Button1”，按鈕上顯示“添加項目”；添加兩個列表框，名稱分別為“List1”和“List2”。 　　　4點擊“＞＞”將List2中所有的選項添加到List1中，并將List2中的項清空。 　　　2點擊“＞”將List2中所選中的項添加到List1中，并將List2中的項刪除。在兩個列表框中間豎排四個命令按鈕，標題分別為“＜”、“＞”、“＜＜”、“＞＞”。TListBox組件響應的主要事件有：OnClick、ONDBLCLICK、OnKeyDown、OnKeyPress、OnKeyUp等。l MoveSelection方法：用來把列表框中的所有選中的列表項移動到另一個列表框中。l ClearSelection方法：作用是清除列表框中所有被選中的選項。l Sorted屬性：用來設置列表框中的列表項是否按字母順序排序。 l ExtendedSelect屬性：只有在MultiSelect屬性值為True時才起作用，用來決定列表框是否允許擴展多選。l Selected屬性：用來測試某個列表項是否被選中。Columns=0 顯示一列，當列表框空間不夠時，自動加垂直滾動條Columns0當列表框空間足夠時，一般會顯示相應的列數(shù)，當不夠時，則自動增加水平滾動條，顯示多列。l TOPINDEX 指示列表框頂端項目的索引值l ITEMHEIGHT 設定列表框項目的高度 當style 為lbstandard時，ITEMHEIGHT的只與item的font相關，程序員不能改變。 TListBox組件 l Items屬性：用來存放列表框中的列表項，屬于TStrings類。常見的Windows操作系統(tǒng)中，顯示可用磁盤驅動器時，用的就是ComboBox。它和Bitbtn組件非常相似，也可以顯示圖像和文本，但通常只顯示圖像，它的特殊屬性如下。參見p79例14練習: 將上面的習題2用單選分組框組件來實現(xiàn) SpeedButton加速按鈕組件 加速按鈕組件位于組件面板的Additional標簽頁，常常被放在Panel組件上，它可以實現(xiàn)按鈕類組件的相應功能。l Columns屬性設置Columns屬性的值，可使單選按鈕以單列或多列的方式顯示。編號從0開始。Items屬性中的每一行字符串使一單選按鈕出現(xiàn)在單選分組框中，其字符串就是單選按鈕的標題。該組件為包含單選按鈕的分組框，單選分組框簡單地將單選按鈕成組。運行程序，查看結果。2) 按照要求編寫程序：新建一個DELPHI工程，在窗體中添加一個文本框，名稱為“txtResult”，默認顯示的內容為空；添加一組單選按鈕，單選按鈕名稱分別為“Op1”、“Op2”,顯示內容分別為“飛機”、“火車”；再添加一組單選按鈕，單選按鈕名稱分別為“Op3”、“Op4”,顯示內容分別為“廣州”、“上海”；添加一個按鈕，名稱為“btnShow”，按鈕上顯示“顯示”。與單選按鈕組件有關的主要事件有單擊事件（OnClick）與雙擊事件（OnDblClick）、OnEnter、OnExit、OnStartDrag、OnEndDrag等事件。它確定了一個選項是否被選定。l Alignment屬性：用來決定單選按鈕的標題文字出現(xiàn)的位置。 單選按鈕組件（RadioButton）（參看word表格排序）單選按鈕組件在標準頁標簽上。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．復選框組件的事件與復選框組件有關的主要事件有單擊事件（OnClick）與雙擊事件（OnDblClick）、OnEnter、OnExit、OnStartDrag、OnEndDrag等事件。type TCheckBoxState = (cbUnchecked, cbChecked, cbGrayed)。若State屬性的值為cbGrayed（復選框變灰）或cbUnChecked（復選框未選定），則Checked屬性的值為False。l Checked屬性該屬性確定了一個選項是否被選定。1．復選框組件的屬性l ALIGNMENT 設定復選框標題位置l AllowGrayed屬性該屬性為布爾型，它確定復選框是否可具有兩個或三個狀態(tài)。type TBitBtnKind = (bkCustom, bkOK, bkCancel, bkHelp, bkYes, bkNo, bkClose, bkAbort, bkRetry, bkIgnore, bkAll)。l Kind屬性：決定位圖按鈕的種類。要求yes,no按鈕不寫任何代碼. BitBtn 按鈕組件 位圖按鈕組件位于組件面板的Additional標簽頁，與Button組件所不同的是多了一個位圖符號在按鈕上，該組件用于創(chuàng)建一個其上帶有位圖的按鈕，其中大部分屬性和事件與Button一致，這里僅介紹它所獨有的屬性。 在button2的onclick事件中添加代碼 :=’cancel’。 注意： 在程序中不得使用任何變量（必須通過屬性設置來移動控件）。練習:1. 在名稱為Form1的窗體上建立二個名稱分別為CmdCmd2，標題為按鈕一、按鈕二的命令按鈕。2． 按鈕組件的事件 與按鈕組件有關的主要事件有單擊事件（OnClick）、雙擊事件（OnDblClick）、OnEnter、OnExit、OnStartDrag、OnEndDrag等事件。當用戶選擇其中一個按鈕時，則終止對話框的modal狀態(tài)。具有ModalResult屬性的按鈕也是只讀的，使用ModalResult屬性可來關閉modal窗體。ModalResult的默認值為0，設置為非零值就可以設置窗體的modal狀態(tài)。l ModalResult屬性該屬性只為運行的屬性。當一按鈕成為焦點（激活時），它就成為臨時的默認按鈕。唯一的例外是若用戶在按回車鍵，選定了其它的按l鈕，則執(zhí)行該按鈕的OnClick事件處理程序。l Default屬性該屬性為布爾型，它確定該組件是否為默認按鈕。若Cancel屬性為True，則無論何時用戶按Esc鍵時，該組件的OnClick事件處理程序就被執(zhí)行。Boolean可以為按鈕指定快捷鍵CancelBoolean 按鈕類控件按鈕類控件主要包括:基本按鈕button、位圖按鈕bitbtn、復選框checkbox、選項按鈕radiobutton button控件在標準頁標簽上。 若在該組件中放置另一窗口類的組件，則該組件就稱為父組件。其使用方法為在窗體上放置一分組框，然后將要出現(xiàn)在該組件中的組件放置其中。（用于作容器）該組件為標準的Windows分組框，使用它可以將窗體上的相關的組件成組。面板組件的事件 與面板組件有關的主要事件有單擊事件（OnClick）與雙擊事件（OnDblClick）、OnEnter、OnExit、OnStartDrag、OnEndDrag等事件。BorderStyle BorderStyle屬性確定面板邊界的類型：bsNone，表示無邊界；bsSingle表示單線邊界。BorderWidth BorderWidth屬性用來確定面板邊界的寬度（單位象素）。BevelOuter確定面板組件的外部斜面。BevelInner屬性確定內部斜面如何出現(xiàn)；BevelOuter屬性確定外部斜面如何出現(xiàn)。該組件用來在窗體上放置一面板，在面板上可以放置其它的組件。參見p64例題6。 showmessage(y)。年齡39。請輸入39。4539。vary:string。與inputbox函數(shù)相似，函數(shù)返回值是布爾值，當用戶按確認按鈕時，返回true,否則返回false. 前面兩個參數(shù)與inputbox相同，后面一個變量，初始值是默認值，當用戶單擊確認按鈕時，輸入的文本保存在該變量中。function InputQuery(const ACaption, APrompt: string。 showmessage(inttostr(x))。1539。年齡 39。請輸入：39。varx:integer。這個對話框經常用來輸入用戶名稱或者用戶密碼。InputBox對話框上有兩個按鈕，“OK”按鈕和“Cancel”按鈕。 InputBox對話框的函數(shù)說明顯示有3個參數(shù)和1個返回值。 InputBox與InputQuery函數(shù) InputBox對話框既能讓用戶對按鈕做選擇，又能讓用戶通過鍵盤輸入文字。 Buttons: TMsgDlgButtons): TForm。 CreateMessageDialog函數(shù)function CreateMessageDialog(const Msg: string。 X, Y: Integer): Word。 Buttons: TMsgDlgButtons。MessageDlgPos函數(shù)定義：function MessageDlgPos(const Msg: string。 if x=mrok then … else …。請選擇39。varx:integer。按鈕常量的含義參見下表：常量意義mbYesNoCancel三個按鈕：mbYes、mbNo、mbCancelmbOKCancel兩個按鈕：mbOK、mbCancelmbAbortRetryIgnore三個按鈕：mbAbort、mbRetry、mbIgnore（4） HelpCtx指定當用戶單擊“Help”按鈕或按F1鍵時，顯示的幫助主題。（2） 對話框類型是對話框的類型，其取值 與意義見下表。 HelpCtx: Longint)：word；一般調用方式為 變量= MessageDlg(信息內容,對話框類型，按鈕組，HelpCtx)。 DlgType: TMsgDlgType。ShowMessageFmt過程的參數(shù)是一個格式字符串和一個數(shù)組，與Format函數(shù)相似，可以將用戶顯示的信息按一定格式顯示在對話框中。2. ShowMessageFmt過程procedure ShowMessageFmt(const Msg: string。ShowMessage過程的作用是顯示一個最簡單的對話框，對話框以應用程序的執(zhí)行文件名作為標題，對話框右上側是一個關閉按鈕，在對話框中顯示了字符串常量，也就是用戶要顯示的信息內容，可以使用回車符（＃13）使文本換行。_ text值：20060301EditText值：2006年03月01日參見p59例4 使用對話框函數(shù)與對話框過程 ShowMessage與ShowMessageFmt過程procedure ShowMessage(const Msg: string)。_ text值：2006年03月01日!0000年09月09日。_例如：!0000年09月09日。 ；IP地址可以為 !000\.000\.000\.000。1。對話框左下部是一個Test Input欄，我們可以在這里輸入字符，以檢測輸入格式是否令人滿意。_　　在掩碼設計對話框的右側是Sample Masks，這里有系統(tǒng)預設的常用的掩碼格式，如電話號碼（Phone）、日期（Date）等。又如一個郵編如PO100083，其中PO表示郵政，是每個郵政編碼中都有的前綴，可以這樣設計掩碼格式：!PO/000000。第三部分的“_”表示在掩碼編輯框中為空時，用“_”來表示空位。1。該數(shù)據(jù)前兩位為字母且為大寫，第三