【正文】 // 用來(lái)保存窗體原來(lái)的顏色procedure (Sender: TObject。beginMessageDlg ( 39。 // 中止打印MessageDlg(39。l Interval屬性：該屬性用來(lái)設(shè)置定時(shí)器兩次OnTimer事件發(fā)生的時(shí)間間隔，以毫秒為單位。 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è)組件的基本操作。 　　　3點(diǎn)擊“＜＜”將Lixt1中所有的選項(xiàng)添加到List2中，并將List1中的項(xiàng)清空。l SelectAll方法：用來(lái)選中列表框中的所有文本。l Count屬性：運(yùn)行屬性，用來(lái)返回列表框中列表項(xiàng)的數(shù)目。l ALLOWALLUP 用以設(shè)定是否包含此快速鈕的組中是否能同時(shí)保持UP狀態(tài)l DOWN 用以設(shè)定此快速鈕是否已被選取l FLAT 用以設(shè)定此快速鈕是否顯示3D邊的效果l GROUPINDEX 用以設(shè)定快速鈕的分組，同一組同一個(gè)編號(hào)l TRANSPARENT 用以設(shè)定快速鈕是否透明 列表類(lèi)組件的使用ListBox和ComboBox都用來(lái)顯示列表項(xiàng)目，所不同的是ComboBox占用較少的空間。l ItemIndex屬性其值確定當(dāng)前選定的單選按鈕。參見(jiàn)p76例12 p78例13課堂練習(xí)：1) 編寫(xiě)程序，要求：輸入半徑，利用選項(xiàng)按紐，選擇運(yùn)算：面積、計(jì)算周長(zhǎng)等。參見(jiàn)p74例11練習(xí)：建一個(gè)工程，放置多個(gè)checkbox,并放一個(gè)按扭，點(diǎn)擊按鈕能統(tǒng)計(jì)有多少個(gè)checkbox被選，用showmessage將數(shù)字顯示出來(lái)，保存。默認(rèn)值為False，就是單擊復(fù)選框可以選定及不選定該組件；AllowGrayed屬性的值為T(mén)rue，單擊復(fù)選框可以選定、不選定或變灰該組件。要求當(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è)窗體。因此使用ModalResult屬性就可以在不編寫(xiě)事件處理程序的情況下關(guān)閉對(duì)話框。但當(dāng)焦點(diǎn)移動(dòng)到其它非按鈕的組件上時(shí)，Default屬性值為T(mén)rue的按鈕就成為默認(rèn)的按鈕。當(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屬性該屬性為布爾型，它確定該組件是否為取消按鈕。 Caption: 屬性的值用來(lái)表明該組件的用途。默認(rèn)值為0，即沒(méi)有邊界。 用于分組的控件 Panel控件面板組件在標(biāo)準(zhǔn)(Standard)頁(yè)標(biāo)簽上。 InputQuery(39。end。begin x:=strtoint(inputbox(39。在Dialogs單元文件中有如下定義： function InputBox(const ACaption, APrompt, ADefault: string): string。 HelpCtx: Longint。begin x:=MessageDlg (39。 Buttons: TMsgDlgButtons。ShowMessage過(guò)程的參數(shù)是一個(gè)字符串常量。_我們也可以用空格來(lái)標(biāo)識(shí)空位。”第二部分和第三部分的分隔?！?999”，區(qū)號(hào)的4個(gè)號(hào)碼，當(dāng)然若改成“0000”，則用戶(hù)一定要輸入?yún)^(qū)號(hào)。1。!格式符只能放在掩碼格式符的第一個(gè)字符處?！春汀蹈袷椒硎倦S后的字母均以小寫(xiě)的形式顯示，直到遇到一個(gè)格式字符或格式符。下面解釋各輸入格式符的意義：　　1.　輸入格式的第一部分是掩碼本身，也就是數(shù)據(jù)輸入格式。在選用MaskEdit之后，需要為它設(shè)計(jì)一個(gè)輸入格式。216。//刪除第六行(3,39。 virtual。 const S: string)。 virtual。若WantTabs為T(mén)rue，則用戶(hù)不能使用Tab鍵來(lái)選定窗體上的下一組件。ScrollBars 用來(lái)設(shè)置備注框是否出現(xiàn)滾動(dòng)條以及滾動(dòng)條的種類(lèi)。程序編寫(xiě)完畢后，運(yùn)行，查看結(jié)果。OnKeyUp 當(dāng)用戶(hù)按下任何一個(gè)鍵后再松開(kāi)時(shí)將觸發(fā)該事件。 Undo 該方法用來(lái)撤消在編輯框中最近所做的編輯操作。只讀屬性HideSelection 用來(lái)決定當(dāng)編輯框失去焦點(diǎn)時(shí)，選中的文本是否還是以選中的方式提供視覺(jué)提示。AutoSelect 用來(lái)決定當(dāng)編輯框獲得焦點(diǎn)時(shí)，是否自動(dòng)選定顯示的文本。將其設(shè)置成False，這種替代功能就被取消了。 Edit控件Edit、MaskEdit、Memo部件都是用作接收、顯示用戶(hù)輸入文本的。Enabled 布爾型,用來(lái)決定該組件是否能即響應(yīng)用戶(hù)的操作。 與輸入輸出有關(guān)的控件Label(標(biāo)簽)一般放在對(duì)象的旁邊，用來(lái)標(biāo)記這些對(duì)象，從而對(duì)用戶(hù)的操作進(jìn)行提示，也可以用來(lái)顯示信息。：主要有visible enabled，當(dāng)他們都為true時(shí)，對(duì)象才能夠獲得焦點(diǎn)。選擇菜單“project|options”,系統(tǒng)打開(kāi)“project options”對(duì)話框，在forms選項(xiàng)卡中，所有窗提出現(xiàn)在自動(dòng)創(chuàng)建列表框中，選擇不需自動(dòng)創(chuàng)建的窗體，移到“Availableforms”列表框中。 引用單元unit2。窗體是一個(gè)對(duì)象，要想在程序中操作它，必須先調(diào)用其create函數(shù)創(chuàng)建它。非模態(tài)窗口打開(kāi)后可以不關(guān)閉，然后再去打開(kāi)其他窗口。這兩個(gè)事件過(guò)程的基本語(yǔ)法形式為：procedure (Sender: TObject)。178。請(qǐng)按鍵39。歡迎使用！39。 窗體的事件窗體的事件很多，常用事件：1．Create事件和Destroy事件178。5．Icon 屬性屬性Icon 用來(lái)指定標(biāo)題欄中顯示的圖標(biāo)。另外，對(duì)于這種風(fēng)格的窗體，屬性BorderIcons 中設(shè)置的biMinimize 和biMaximize 并不起作用。屬性Name 用來(lái)標(biāo)志工程中的窗體。只有當(dāng)Align屬性為alNone時(shí)才有效,屬性為枚舉類(lèi)型，取值如下：取值含義poDesigned窗體運(yùn)行時(shí)顯示的位置和大小與設(shè)計(jì)相同poDefault窗體每次顯示時(shí)，與上次比較，往右下角移動(dòng)了一些位置；窗體的高度和寬度由Windows 決定poDefaultPosOnly窗體以設(shè)計(jì)期間的大小顯示，窗體顯示的位置較上次向右下角移動(dòng)了一些。例如Windows系統(tǒng)附件中的“磁盤(pán)掃描”程序。了解可視組件庫(kù)對(duì)于學(xué)習(xí)組件、使用Delphi 很有幫助。窗體和組件之間除了具有上述的不同點(diǎn)之外，還具有一些相同點(diǎn)。l TComponent組件類(lèi)，所有的組件都是由這個(gè)類(lèi)派生來(lái)的。本章將重點(diǎn)介紹常見(jiàn)組件及其編程應(yīng)用。掌握創(chuàng)建新窗體的兩種不同的方法及其應(yīng)用。掌握windows的模式與非模式窗體的概念及應(yīng)用方法。現(xiàn)在深入普及的Windows操作系統(tǒng)中，方便快捷的人機(jī)交互界面主要是通過(guò)窗體和對(duì)話框?qū)崿F(xiàn)的。l TControl子類(lèi)（可視組件）可分為兩類(lèi)：窗體組件和圖形組件。例如，從面向?qū)ο缶幊痰慕嵌葋?lái)看，所有組件都是TComponent 類(lèi)派生類(lèi)的一個(gè)對(duì)象。Delphi 中的主要組件欄Standard標(biāo)準(zhǔn)Windows組件、框架、菜單等Additional一些專(zhuān)用的Windows組件Win3232位Windows系統(tǒng)中的公用組件System進(jìn)行系統(tǒng)操作的組件（包括定時(shí)器、多媒體和DDE等）Data Access操作數(shù)據(jù)庫(kù)的組件，如訪問(wèn)數(shù)據(jù)庫(kù)、表格、查詢(xún)和報(bào)表等Data Controls 進(jìn)行數(shù)據(jù)庫(kù)控制的組件BDEBORLAND訪問(wèn)數(shù)據(jù)庫(kù)的組件ADO通過(guò)ActiveX Data Objects訪問(wèn)數(shù)據(jù)庫(kù)的組件InterBase 提供與InterBase直接聯(lián)接的組件MIDAS開(kāi)發(fā)多層數(shù)據(jù)庫(kù)應(yīng)用程序的組件InternetExpress 開(kāi)發(fā)InternetExpress應(yīng)用程序(Web服務(wù)器應(yīng)用程序和客戶(hù)端多層數(shù)據(jù)庫(kù)應(yīng)用程序)的組件Internet 開(kāi)發(fā)Web服務(wù)的應(yīng)用程序FastNet提供Internet操作的一些組件Decision Cube 為應(yīng)用程序提供多維數(shù)據(jù)分析的組件Dialogs Windows通用對(duì)話框組件Win 提供與Windows Samples一些定制組件的例子Servers通用COM服務(wù)器組件DELPHI組件常見(jiàn)屬性及說(shuō)明屬性說(shuō)明Align 設(shè)置組件對(duì)齊（相對(duì)于其父容器）Borderstyle 設(shè)置組件邊框形狀Caption 設(shè)置組件標(biāo)題Ctl3d 設(shè)置組件邊框是否為3D模式，若BORDERSTYLE設(shè)置為BSNONE則此屬性無(wú)效Color 設(shè)定組件背景顏色Cursor 設(shè)定鼠標(biāo)經(jīng)過(guò)組件時(shí)光標(biāo)所顯示的形狀Enabled 設(shè)定組件是否能使用，當(dāng)設(shè)為FALSE時(shí)組件會(huì)呈灰色Font 設(shè)定組件內(nèi)文字的字型、字體大小、顏色等Height 設(shè)定組件高度Helpcontent 用來(lái)為幫助說(shuō)明文件中的索引值建立關(guān)聯(lián)Left 設(shè)定組件與父組件左邊框間的距離Popupmenu 設(shè)定鼠標(biāo)右鍵（彈出式）快捷菜單Taborder 設(shè)定組件在按下TAB鍵后焦點(diǎn)（FOCUS）移動(dòng)的順序Tabstop 若設(shè)為FALSE，則按TAB鍵后焦點(diǎn)并不會(huì)在此組件上停留Top 設(shè)定組件與父組件上邊框間的距離Visible 設(shè)定組件是否可見(jiàn)，此屬性只在執(zhí)行時(shí)起作用Width 設(shè)定組件顯示寬度DELPHI常見(jiàn)事件及說(shuō)明事件說(shuō)明Onchange 當(dāng)組件有所改變時(shí)觸發(fā)的事件Onclick 當(dāng)在此組件上按下鼠標(biāo)左鍵時(shí)觸發(fā)的事件Ondblclick 當(dāng)在此組件上雙擊鼠標(biāo)左鍵時(shí)觸發(fā)的事件Onenter 當(dāng)焦點(diǎn)進(jìn)入此組件時(shí)觸發(fā)的事件Onexit 當(dāng)切換到其它組件使該組件失去焦點(diǎn)時(shí)觸發(fā)的事件，但當(dāng)切換到另一窗體或另一應(yīng)用程序時(shí)此事件不會(huì)觸發(fā)Onkeydown 當(dāng)在擁有焦點(diǎn)的組件上按下某個(gè)鍵時(shí)觸發(fā)的事件，按鍵包括所有的英文、數(shù)字鍵、方向鍵、功能鍵等Onkeypress 當(dāng)在擁有焦點(diǎn)的組件上按下某個(gè)鍵時(shí)觸發(fā)的事件，但按鍵只包括所有的英文、數(shù)字鍵、TAB、BACKSPACE、ENTER、ESCOnkeyup 當(dāng)使用者放開(kāi)鍵盤(pán)上的按鍵時(shí)觸發(fā)的事件，按鍵看ONKEYDOWNOnmousedown 當(dāng)鼠標(biāo)鍵在某個(gè)組件按下時(shí)觸發(fā)的事件（其參數(shù)包括哪個(gè)鼠標(biāo)鍵被按下、是否有特殊鍵（CTRL、ALT、SHIFT）被按下以及鼠標(biāo)當(dāng)前的坐標(biāo)）Onmousemove 當(dāng)鼠標(biāo)在組件內(nèi)移動(dòng)時(shí)觸發(fā)的事件Onmouseup 當(dāng)鼠標(biāo)鍵在組件上方放開(kāi)時(shí)所觸發(fā)的事件Onpaint 在組件需要被重畫(huà)時(shí)觸發(fā)的事件，此時(shí)可進(jìn)行自定義畫(huà)法 窗體介紹窗體是編寫(xiě)Delphi程序的工作底稿區(qū)，凡是與用戶(hù)進(jìn)行交互的程序都得使用窗體來(lái)設(shè)計(jì)用戶(hù)界面。此外，有些應(yīng)用程序在運(yùn)行期間可以總是顯示在桌面的最前端，例如在Windows中按下系統(tǒng)熱鍵Ctrl+Alt+Del，激活的關(guān)閉程序窗體會(huì)一直顯示在其它應(yīng)用程序的窗體之上，除非退出該程序。如果窗體以設(shè)計(jì)時(shí)的大小不可以在屏幕上完全顯示，就移動(dòng)到屏幕的左上角顯示。通常，應(yīng)該在系統(tǒng)開(kāi)發(fā)的設(shè)計(jì)階段就將整個(gè)工程中所有窗體的名稱(chēng)確定，然后在編程階段根據(jù)設(shè)計(jì)文檔修改窗體的Name 屬性。bsSizeToolWin風(fēng)格與bsSizeable 相同，只是標(biāo)題欄比較小。單擊對(duì)象編輯器Icon 屬性右邊的省略號(hào)按鈕，在彈出的Picture Editor 對(duì)話框中點(diǎn)擊Load...按鈕，就可以裝入一個(gè)制作好的圖標(biāo)。 當(dāng)創(chuàng)建窗體時(shí)，就產(chǎn)生Create事件；178。 :=clred。 :=130。 當(dāng)窗體的Visible屬性設(shè)置為T(mén)rue時(shí)，窗體被顯示，同時(shí)觸發(fā)Show事件；178。procedure (Sender: TObject)。 創(chuàng)建新窗體一個(gè)對(duì)象的生命周期是從它被創(chuàng)建那一刻開(kāi)始。要注意程序設(shè)計(jì)狀態(tài)與程序運(yùn)行狀態(tài)的區(qū)別。在進(jìn)行編譯時(shí)系統(tǒng)會(huì)自動(dòng)提示并添加代碼。l 在主調(diào)窗體中修改程序代碼。 或者 。提示:首先設(shè)置窗體的TransParentColor有些控件不具有焦點(diǎn)?？梢栽跇?biāo)簽中設(shè)置熱鍵，也即在Caption屬性值段中輸入含有“amp。Visible布爾型,用來(lái)決定在程序運(yùn)行時(shí)組件是否可見(jiàn)Font 該屬性用來(lái)設(shè)置標(biāo)簽組件中顯示的文本字體，是一個(gè)對(duì)象屬性 。它們具有一些相同的屬性。BorderStyle 用來(lái)決定編輯框組件是否有邊框及邊