delphi可視化編程講稿(編輯修改稿)

　

【文章內(nèi)容簡介】 n是否出現(xiàn)表示熱鍵的下劃線。Transparent 布爾型，用來確定標(biāo)簽是否為透明的。2． 標(biāo)簽的應(yīng)用例1：利用標(biāo)簽設(shè)計并控制文本的投影效果。包括靜態(tài)設(shè)置屬性，動態(tài)改變屬性。課堂練習(xí):修改實驗一的登錄窗體，設(shè)計如圖所示界面,對齊方式采用上下、左右均采用居中對齊，且當(dāng)按熱鍵U，P時編輯框1,2可分別獲得焦點。 Edit控件Edit、MaskEdit、Memo部件都是用作接收、顯示用戶輸入文本的。它們具有一些相同的屬性。ReadOnly在運行時間內(nèi)控制對象是否可以進行Windows的操作，當(dāng)此值為False時，他們接受用戶的輸入。MaxLength可以設(shè)置輸入文本的長度限制。值為0時，不限制文本長度。用PasswordChar屬性可以按照顯示隱蔽密碼的方法顯示用戶輸入文本，例如，它的值為“*”，運行時，輸入將用“*”來顯示，從而提供了一種安全措施。當(dāng)AutoSelect屬性為true時，文本框獲得焦點時，文本被選中，呈高亮度顯示，按鍵操作會將這些字符刪除，替換成當(dāng)前的鍵盤輸入。這種設(shè)置為操作提供了方便，用戶不必每次先刪除原來的文本；但也可能會導(dǎo)致誤刪文本。將其設(shè)置成False，這種替代功能就被取消了。 Align屬性調(diào)整該對象在窗口中的對齊情況，有alNone(無對齊指定)、alBottom(底部對齊)、alClient(全窗口顯示)等可以選擇；而Alignment屬性則決定了文本在框中的對齊顯示格式。Lines屬性訪問的文本被存儲在一個TStrings對象中，按動它的省略按鈕，可以通過對話框向它增加文本，也可以用程序?qū)@一屬性進行操作，以達到修改或增加備注文本的目的。編輯類組件的繼承關(guān)系1． TEdit組件的常用屬性Text 代表顯示在編輯框中的文本。ReadOnly 該屬性用來決定編輯框中顯示的文本是否可以修改。PasswordChar 用來決定用戶輸入的字符是原樣顯示還是以密碼方式顯示。 CharCase 用來控制編輯框中文本的大小寫。AutoSelect 用來決定當(dāng)編輯框獲得焦點時，是否自動選定顯示的文本。BorderStyle 用來決定編輯框組件是否有邊框及邊框的樣式。MaxLength 用來決定編輯框中最多能夠輸入或顯示的字符個數(shù)。 SelStart 運行屬性，用來設(shè)置或指示選中文本的第一個字符的位置，文本框的第一個字符位置為0。SelText 運行屬性，用來設(shè)置或指示選中的文本。SelLength 運行屬性，用來設(shè)置或指示選中文本的長度。Modified 運行屬性，用來指示編輯框內(nèi)容是否發(fā)生了改變。CanUndo 用來指出對編輯框中顯示內(nèi)容的改變是否能夠撤消。只讀屬性HideSelection 用來決定當(dāng)編輯框失去焦點時，選中的文本是否還是以選中的方式提供視覺提示。例如：’abcdef’ 下列程序運行后,edit1選中的文本是什么呢? … 。 :=1。 :=3。 …2． TEdit組件的常用方法SetFocus 該方法用于為編輯框設(shè)置焦點，無參數(shù)。Clear 該方法用來清除編輯框中的所有文本，無參數(shù)。ClearSelection 該方法用來清除編輯框中選中的文本，無參數(shù)。SelectAll 該方法用來選中編輯框中的所有文本。 Undo 該方法用來撤消在編輯框中最近所做的編輯操作。ClearUndo 該方法用來清除“撤消”緩沖區(qū)，從而不能對以前的操作做撤消操作，該方法無參數(shù)。CopyToClipboard 該方法用來把選中的文本復(fù)制到剪貼板上，相當(dāng)于復(fù)制操作。CutToClipboard 該方法用來把選中的文本移動到剪貼板上，相當(dāng)于剪切操作。PasteFromClipboard 該方法用來把剪切板上的文本粘貼到插入點處，相當(dāng)于粘貼操作。3． TEdit組件的常用事件 OnChange 當(dāng)編輯框輸入的text屬性值發(fā)生改變時將觸發(fā)該事件。OnKeyPress 當(dāng)用戶按下鍵盤上的ASCII字符鍵時觸發(fā)該事件。OnKeyDown 當(dāng)用戶按下鍵盤上的任何鍵時都會觸發(fā)該事件。OnKeyUp 當(dāng)用戶按下任何一個鍵后再松開時將觸發(fā)該事件。參見p54例題2練習(xí):1. 新建一個工程，窗體上一個文本框edit1，兩個按鈕，caption分別為“剪切”，“恢復(fù)”，運行后要求在edit1中輸入文本，點“剪切”，把edit1中的內(nèi)容剪切掉，點“恢復(fù)”，把edit1中的內(nèi)容恢復(fù)出來。2. 新建一個工程，窗體上文本框edit1，使用戶輸入字母一律轉(zhuǎn)換為大寫顯示(焦點在最右端)，保存。 3. 新建一個工程，實現(xiàn)功能限制：在edit1中只能輸入10個字母，超過的在edit2中顯示。保存。 4. 按照要求編寫程序：新建一個工程，在窗體中添加兩個文本框分別為“Edit1”、“Edit2”，默認(rèn)顯示內(nèi)容為空。請設(shè)置適當(dāng)?shù)目丶傩裕⒕帉戇m當(dāng)?shù)氖录^程，使得程序運行時，只能在Edit1中輸入數(shù)字，且每輸入一個字符，則顯示一個“*”，同時在Edit2中顯示輸入的內(nèi)容。程序中不得使用任何變量。程序編寫完畢后，運行，查看結(jié)果。5. 新建一個工程，實現(xiàn)功能：單擊edit1框時，edit1中的內(nèi)容被全選。保存。 6. 按照要求編寫程序：新建一個工程，在窗體中添加一個文本框“Edit1”。編寫適當(dāng)?shù)氖录^程，使得程序運行時，如果單擊窗體，則可以使文本框移動到窗體左上角；如果在文本框中輸入信息，則可以使文本框移動到窗體右上角。程序中不得使用任何變量，只允許通過修改屬性的方式移動文本框。程序編寫完畢后，運行，查看結(jié)果。 Memo控件1． TMemo組件的常用屬性 屬性說明Caretpos ，y表示所在行，從0開始計數(shù)。ScrollBars 用來設(shè)置備注框是否出現(xiàn)滾動條以及滾動條的種類。Lines 按行處理文本。Tstrings類型，字符串?dāng)?shù)組，序號從0開始。WordWrap 用來決定當(dāng)輸入的文本到達右邊界時是否插入軟回車，換到下一行輸入。WantReturns 為布爾型，它確定在該組件中用戶輸入的回車鍵是作為文本的內(nèi)容還是進入窗體中。若WantReturns為True，則用戶輸入的回車鍵作為文本的部分；若WantReturns為False，則用戶輸入回車鍵時，激活窗體中的其它在WantReturns為False時，要在備注中輸入回車，使用Ctrl+Enter。WantTabs 屬性：該屬性為布爾型，它確定在該組件中是否可使用Tab鍵。當(dāng)WantTabs為True可使用。若WantTabs為True，則用戶不能使用Tab鍵來選定窗體上的下一組件。也就是說從其它組件中，用戶可以使用Tab鍵進入該組件，但在該組件中使用Tab鍵不能進入其它的組件。Modified 運行屬性，用來指示memo內(nèi)容是否發(fā)生了改變。TEXT 用于取得組件中文本（字符串）2． TMemo組件的常用方法Add 該方法用來向字符串列表的尾部添加一個字符串。其語法格式如下：function Add(const S: string): Integer。 virtual。Clear 該方法用來清空字符串列表。其語法格式如下：procedure Clear。 virtual。 abstract。Delete 該方法用來從字符串列表中刪除一個指定的字符串。其語法格式如下：procedure Delete(Index: Integer)。 virtual。 abstract。Insert 用來向字符串列表中插入一個字符串。其語法格式如下：procedure Insert(Index: Integer。 const S: string)。 virtual。 abstract。Move 該方法用來在字符串列表中移動字符串的位置。其語法格式如下：procedure Move(CurIndex, NewIndex: Integer)。 virtual。LoadFromFile 該方法的作用是用指定的文件填充字符串列表。其語法格式如下：procedure LoadFromFile(const FileName: string)。 virtual。SaveToFile 該方法用來把字符串列表中的數(shù)據(jù)寫到某文件中去。其語法格式如下：procedure SaveToFile(const FileName: string)。 virtual。APPEND() 在末追加一行文本例： (39。ssss39。)。//在最后增加一行 (5)。//刪除第六行(3,39。ssss39。)。//在第4行插入新行 (2,4)。//移動第3行到第5行參見p57例題 3 MaskEdit控件1． TMaskEdit組件的常用屬性EditMask 該字符用于控制輸入數(shù)據(jù)的格式。掩碼字符串的組成：三部分組成，每一部分由‘；’分隔。216。 主要部分確定數(shù)據(jù)格式，特殊字符及其意義參見p65表313。216。 第二部分決定掩碼中的字符串是否作為數(shù)據(jù)的一部分。兩個取值‘0’表示不作為，‘1’表示作為。216。 第三部分，指出掩碼中的代表未輸入數(shù)據(jù)的字符。EditText 該屬性代表TMaskEdit組件輸入的格式化文本。掩碼編輯框（MaskEdit）是一種特殊的編輯框。使用它可以設(shè)計出許多復(fù)雜的輸入格式。在選用MaskEdit之后，需要為它設(shè)計一個輸入格式。方法如下：首先在窗體上將MaskEdit選中，在對象查看器（Object Inspector）中找到EditMask屬性，雙擊它，彈出一個如下圖所示的對話框。 　對話框左上角的Input Mask編輯框用于輸入掩碼格式。掩碼格式可以分為三部分，每個部分之間用分號“；”分開，第一部分。第二部分。第三部分如“!90:90:90。1。_ ”。下面解釋各輸入格式符的意義：　　1.　輸入格式的第一部分是掩碼本身，也就是數(shù)據(jù)輸入格式。在這一部分用一些特殊的格式符來表示應(yīng)輸入的字符類型及格式，如!l0A9:Cll這樣一串輸入格式掩碼。常用的MaskEdit輸入格式符有：格式符意義l和Ll表示該位置只可能是一個字母，可以用光標(biāo)鍵跳過它，但是不能是其它類型的字符。L該位置必須是一個字符。a和Aa表示該位置只可能是一個字母或數(shù)字字符。A表示該位置必須是一個字母或數(shù)字字符。c和Cc表示該位置只可能是一個字母，C表示該位置必須有一個字母。9和09表示該位置只可能是一個數(shù)字，0表示該位置必須有一個數(shù)字。〈和〉格式符表示隨后的字母均以小寫的形式顯示，直到遇到一個格式字符或格式符。格式符則和正好相反。〈〉表示不作大小寫轉(zhuǎn)換，以輸入時的形式為準(zhǔn)。\表示該格式符之后的那個掩碼格式符將作為數(shù)據(jù)中的普通字符對待。當(dāng)用戶想在數(shù)據(jù)中放進一個掩碼格式符時，應(yīng)該在這個格式符前放一個\符號。如\A，\\等等。表示該位置可能是一個數(shù)字或正負(fù)號。!如有!表示數(shù)據(jù)前的空格將不被保存在數(shù)據(jù)中，沒有!則數(shù)據(jù)后的空格不被保存。!格式符只能放在掩碼格式符的第一個字符處。和/標(biāo)準(zhǔn)的分隔符，可作為數(shù)據(jù)的一部分。其中/在顯示時為‘－’而非/。2.　在輸入格式中的第二部分只有0和1兩種選擇。如為1，則掩碼中的非用戶輸入數(shù)據(jù)和標(biāo)準(zhǔn)分隔符等其它各種字符會作為數(shù)據(jù)的一部分保存；為0則不保存。　　3. 輸入格式的第三部分用于表示數(shù)據(jù)中的空位用那個字符代替顯示。!\(9999\)999999。1。_“!”將前面的空格去掉。“\( ”區(qū)號的左括號。因為括號是特殊字符，所以在前面加“\”。“9999”，區(qū)號的4個號碼，當(dāng)然若改成“0000”，則用戶一定要輸入?yún)^(qū)號。“\)”區(qū)號的右括號。“999999”，電話的6個號碼。“。”第一部分和第二部分的分隔。“1”將輸入后的區(qū)號括號作為數(shù)據(jù)的一部分。若“0”，則括號不作為數(shù)據(jù)一部分，即得到的數(shù)據(jù)是區(qū)號和電話號碼直接相連（沒有括號）。“。”第二部分和第三部分的分隔。“_”等待用戶輸入時顯示的字符。最后控件的顯示結(jié)果為：(____)______例如要輸入一個汽車牌號如CA－300019 。該數(shù)據(jù)前兩位為字母且為大寫，第三位為一個系統(tǒng)分隔符號，后６位為數(shù)字。可以這樣設(shè)計掩碼格式：　　!LL/000000。1。_　　掩碼的第二部分取為１表示系統(tǒng)分隔符‘－’也將作為數(shù)據(jù)保存。第三部分的“_”表示在掩碼編輯框中為空時，用“_”來表示空位。我們也可以用空格來標(biāo)識空位。又如一個郵編如PO100083，其中PO表示郵政，是每個郵政編碼中都有的前綴，可以這樣設(shè)計掩碼格式：!PO/000000。1。_　　在掩碼設(shè)計對話框的右側(cè)是Sample Masks，這里有系統(tǒng)預(yù)設(shè)的常用的掩碼格式，如電話號碼（Phone）、日期（Date）等。我們可以選擇一個，然后進行必要的調(diào)整。對話框左下部是一個Test Input欄，我們可以在這里輸入字符，以檢測輸入格式是否令人滿意。 又例如：時間可以為 !90:00。1。_ ；IP地址可以為 !000\.000\.000\.000。1。_例如：!0000年09月09日。1。_ text值：2006年03月01日!0000年09月09日。0。_ text值：20060301EditText值：2006年03月01日參見p59例4 使用對話框函數(shù)與對話框過程 ShowMessage與ShowMessageFmt過程procedure ShowMessage(const Msg: string)。ShowMessage過程的參數(shù)是一個字符串常量。ShowMessage過程