Delphi課件第3章.ppt

1、第3章 可視化組件的應(yīng)用,內(nèi)容提要,窗體與組件 常用組件的使用,3.1 窗體與組件,在Windows環(huán)境中，人機交互主要是在一些窗體和對話框中進行的。在Delphi中，窗體指的就是窗口和對話框，進行可視化程序設(shè)計一般就是從窗體開始并在窗體中完成的。窗體本身就是一個組件，它與其他組件不同的是：窗體像一個可以放置東西的容器，可以根據(jù)任務(wù)的需要在其上放置各種各樣的組件。窗體與組件的關(guān)系參見圖3-1。,3.1.1 窗體與組件的關(guān)系,圖3-1 窗體與組件,3.1.2 組件的公共屬性和事件,不同的組件具有不同的屬性、方法和事件，但有些屬性和事件是公共的，也就是它們雖然出現(xiàn)在不同的組件中但含義和使用方法相同

2、。 1.常用的公共屬性,(1) Action 屬性。用來設(shè)置與菜單項相關(guān)的動作對象，可以通過動作列表編輯器來設(shè)置。 (2) Align 屬性。用于決定組件在窗體或上一級組件中的位置和尺寸。 (3) Autosize 屬性。用于決定組件是否隨其所包含內(nèi)容的大小而調(diào)整尺寸。 (4) Caption 屬性。用來設(shè)置組件的標題。 (5) Color 屬性。用來設(shè)置組件的顏色。,(6) Cursor 屬性。 用于設(shè)定當鼠標的光標落入該組件的區(qū)域時鼠標光標的形狀。 (7) Font 屬性。 用于設(shè)置組件上所顯示的文字的字體。 (8) Height 屬性和Width屬性。用于設(shè)置組件的高度和寬度。 (9)

3、Hint 屬性和ShowHint 屬性。 Hint屬性用于設(shè)置鼠標在組件上停留是顯示提示信息的內(nèi)容；ShowHint屬性用于指定鼠標在該組件上停留時是否顯示提示信息。 (10) Left 屬性和Top 屬性。 指定該組件在窗體中的左上頂點的坐標值。,(11) Name 屬性。這是每個組件都具有的屬性，該屬性用于指明組件對象的名字，通過組件對象的名字來使用組件。 (12) ParentColor 屬性。 ParentFont 屬性和ParentShowHint 屬性。當這些屬性值設(shè)置為Ture時，組件使用它的上一級組件的同一屬性的設(shè)置植，這樣可以使程序保持一致的風格。 (13) PopUpMen

4、u 屬性。 用于指定當右擊該組件時彈出時的彈出式菜單PopUpMenu的名字，此時這個彈出式菜單應(yīng)該已經(jīng)存在，PopUpMenu本身也是一個組件。 (14) Text屬性 。 用于指定文本類組件顯示的文本，類似于Caption屬性。 (15) Visible屬性。 決定組件是否可見。當設(shè)置為True時，在運行時可以看到該組件；設(shè)為False時運行時不可見。,.常用的公共事件, onClick事件。鼠標左鍵單擊某組件時觸發(fā)該事件。 onDblClick事件。鼠標左鍵雙擊某組件時觸發(fā)該事件。 OnEnter事件和OnExit事件。當通過鼠標單擊組件或Tab鍵跳轉(zhuǎn)到組件上時，該組件獲得焦點，此時該組

5、件的OnEnter事件被觸發(fā)；該組件由焦點狀態(tài)轉(zhuǎn)為非焦點狀態(tài)時將觸發(fā)OnExit事件。 OnMouseDown事件、OnMouseMove事件和OnMouseUp事件 這是響應(yīng)鼠標的一組事件。其中當鼠標在組件上被按下時觸發(fā)OnMouseDown事件；當鼠標在組件的顯示區(qū)域內(nèi)移動時觸發(fā)OnMouseMove事件；當釋放了在組件區(qū)域內(nèi)按下的鼠標鍵時觸發(fā)OnMouseUp事件。這三個事件不僅可以判斷鼠標按下的是左、中、右鍵中的哪一個鍵，還可以判斷是否同時按下了Alt、Shift或Ctrl鍵。具體應(yīng)用請看下面章節(jié)的組件介紹。, OnKeyDown事件、OnKeyUp事件和OnKePress事件 這是響

6、應(yīng)鍵盤的一組事件。組件處于激活的焦點狀態(tài)時，按下了鍵盤上的鍵時將觸發(fā)OnKeyDown事件，返回的是按下鍵的鍵值，可以是復合鍵；釋放一個按下的鍵時將觸發(fā)OnKeyUp事件；鍵盤上的鍵一次完整地按下和釋放操作將觸發(fā)OnKeyPress事件。,3.2常用組件的使用,Delphi封裝了大量的可視化組件，使程序員能夠在拖拖放放中輕松地設(shè)計程序界面。Delphi中提供的【Standard】、【Additional】和【W(wǎng)in32】三個標簽頁放置基本組件。這些組件都是任何程序設(shè)計必不可少的。本節(jié)將詳細介紹常用組件的使用方法。,3.2.1 Label組件,Label（標簽）組件在Standard標簽頁中，主

7、要用于在窗體中顯示提示信息，常與Edit組件一起使用，是顯示文本的主要組件。其特殊屬性有：,1. Autosize屬性 該屬性用來判斷Label（標簽）組件是否隨Caption屬性值自動調(diào)整大小。如果該屬性值為True，則Label的長度隨著Caption屬性值自動調(diào)整大??；如果該屬性值為False，則Label保持設(shè)計時定義的大小不變，此時，若標題太長，則只能顯示部分內(nèi)容。 2.Caption屬性 該屬性用來設(shè)置在標簽上顯示的文本。,3. Wordwrap該屬性 該屬性用于設(shè)置Caption屬性的顯示方式。缺省為False，表示標簽上的標題（提示信息）不能自動換行；如果該屬性為True，則標

8、簽將在垂直方向變化大小，以使其與顯示的文本相適應(yīng)，而水平方向的大小不變。但若想使該屬性起作用，還必須將Autosize屬性設(shè)為True。 4. Layout該屬性 該屬性可以改變文本在標簽中的位置。 5. Transparent該屬性 該屬性決定標簽的背景是否透明。其值為True時，透明，即標簽不會擋住它下面的組件。默認值為False。,3.2.2 Edit組件,Edit組件在Standard標簽頁中，也稱編輯框組件是Windows程序中常用的組件，它主要用于輸入單行文字。 Edit組件的常用屬性有：,1.AutoSelect屬性 該屬性確定當編輯框獲得輸入焦點時，編輯框中的文字是否自動被選中

9、。 2. AutoSize屬性 該屬性確定編輯框是否隨字體變化而自動變動尺寸，缺省為True。 3. BorderStyle屬性 該屬性確定Edit控件是否有邊框。 4. CharCase屬性 該屬性設(shè)置文本框內(nèi)字符的大小寫，其值為：ecLowerCase，全部轉(zhuǎn)換為小寫；ecNormal，不轉(zhuǎn)換；ecUpperCase，全部轉(zhuǎn)換為大寫。,5.HideSelection屬性 該屬性決定當輸入焦點從Edit組件移走后，編輯框內(nèi)原來被選中的文本是否依然保持選中狀態(tài)。其設(shè)置為True，不保持；其值為False，保持。該屬性的默認值為True。 6.MaxLength屬性 該屬性確定編輯框最多可以輸入

10、的字符數(shù)，缺省值為0，表示可以輸入任意多的字符；如果該屬性不為0，只能向編輯框中輸入小于或等于設(shè)定值的字符數(shù)。 7.Modified屬性 該屬性確定編輯框中的內(nèi)容自建立以來或者Modified屬性最后一次被設(shè)置為False之后是否被修改。 8. PasswordChar屬性 該屬性在一些編輯框組件如TMaskEdit、TDBEdit中都有。缺省時該屬性為#0，即沒有掩碼。用戶可以自己設(shè)置一個掩碼，如*，則用戶在編輯框中輸入的字符都將以*字符顯示，而隱藏真實的字符。,9.Text屬性 該屬性用于顯示和保存編輯框中的內(nèi)容。 10.ReadOnly屬性 該屬性確定程序運行時，用戶是否可以改變編輯框中

11、的內(nèi)容。若為True，表示編輯框是只讀的，其內(nèi)容不可以編輯修改。 11.SelLength屬性 該屬性可以返回在編輯框中被選中的文本的長度。 12.SelStart該屬性 該屬性確定在編輯框中被選中文本的起始位置（第一個字符的序號為0）。 13.SelText屬性 該屬性用來設(shè)置或指示選中的文本。,Edit組件的主要方法,Edit組件常用的幾個事件有：OnChange、OnKeyPress、OnEnter事件。,Edit組件的常用事件,3.2.3 Memo組件,Memo組件在Standard標簽頁中，Memo組件為用戶提供了一種處理多行文本的方法，還可用它快速地閱讀文件中的數(shù)據(jù)，而且讀取和保存

12、文本的最大長度可達255KB。 Memo組件的屬性 Memo組件的屬性、方法和事件與Edit組件大致相同。其特有的幾個屬性有： 1. Lines屬性 按行處理文本。 2. ScrollBars屬性 該屬性用來設(shè)置備注框是否出現(xiàn)滾動條以及滾動條的種類。 3. WordWrap屬性 該屬性用來決定當輸入的文本到達右邊界時是否插入軟回車，以便換到下一行再輸入。,3.2.3 Memo組件,Memo組件的方法 使用剪貼板（Clipboard） Memo組件同Edit組件一樣，也可使用CutToClipboard、CopyToClipboard和PastFromClipboar這三種方法，實現(xiàn)將Memo組

13、件中被選擇文本剪切或復制到剪貼板上，以及將剪切板上的內(nèi)容粘貼到Memo組件中。 將Memo中的選中文本剪切到剪貼板的語句如下： if Memo1.SelLength0 then Memo1.CutToClipboard;,2.文本的添加(Add方法) 利用Lines屬性，可以增加、刪除一行文本，也可以移動一行文本。下面的代碼將文本添加到Memo中的最后一行： Memo1.Lines.Add(在Memo1的最后添加一行文本)； 3. 文件的保存和裝載(LoadFile方法、 SaveToFile方法) Memo1.Lines.LoadFile(Opendialog1.FileName) 可以將M

14、emo組件中的文本保存成文本文件，也可以將文本文件裝載到Memo中。這需要配合使用SaveDialog組件和OpenDialog組件。將Memo中的文本保存為文本文件的語句為： if SaveDialog1.Execute then /打開保存 Memo1.Lines.SaveToFile(SaveDialog1.FileName); 以上語句先打開保存對話框，然后將Memo中的文本保存對話框到一個文件中，文件名為我們在SaveDialog中輸入的文本。 在Memo中裝載文本文件的語句為： if Opendialog1.Execute then Memol.Lines.LoadFile(Ope

15、ndialogl.FileName);,3.2.4 MaskEdit組件,MaskEdit組件在Additional標簽頁中，MaskEdit組件（也稱掩碼編輯框）是一種特殊的編輯框，它的主要屬性是EditMask。使用它可以設(shè)計出許多復雜的輸入格式。在選用MaskEdit之后，需要為它設(shè)計一個輸入格式。 其格式輸入符參見P99頁表36。,MaskEdit組件輸入格式符,3.2.5 RichEdit組件,RichEdit組件在Win32標簽頁中，RichEdit組件和Memo組件非常相似，但RichEdit組件功能更強大，能夠?qū)ξ淖诌M行格式化，如設(shè)置字體、顏色等，可以插入OLE文檔，支持鼠標拖

16、放，還可以對文本進行搜索和打印。一般用RichEdit組件制作文本編輯器。具體應(yīng)用與例3-4類同請參閱例3-4的界面及代碼部分。,3.2.6 ListBox組件,ListBox（列表框）組件在Standard標簽頁中，ListBox通常用來對一組信息進行列表。列表框和組合框（ComboBox）的功能類似，只不過組合框一次只能顯示一條信息，要瀏覽全部信息，需要按下組合框旁邊的三角按鈕。在列表框中的項目列表是Items屬性的值，可使用Add、Insert、Delete方法對列表框中的項目進行增加、插入和刪除操作。 ListBox組件的主要屬性有： 1. Canvas 該屬性只有在列表框風格為自繪時

17、才有用，用于在列表框項目上繪制圖形。 2. Colums 該屬性用來控制列表框中的項目需顯示成幾列。默認是0，表示以單列顯示。 3. Height 該屬性決定列表框在垂直方向的高度。,3.2.6 ListBox組件,4. ItemIndex屬性 該屬性指出在列表框中被選中的哪個項目的索引號。 5. Items屬性 該屬性用來存放列表框中的列表項。 6. MultiSelect屬性 該屬性用來設(shè)置能否在列表框中選擇多個列表項，即是否允許多選。 7. Selected屬性 該屬性用來測試某個列表項是否被選中 。 8. Stored屬性 該屬性決定是否自動地為用戶進行排序。,3.2.6 ListBo

18、x組件,ListBox組件的常用方法 Clear方法：該方法清除在列表框中的所有項目。 Add方法：可在運行時使用該方法為列表框添加新項目。 Delete方法：可在運行時使用該方法刪除列表框中的項目。 Insert方法：可在運行時使用該方法為列表框插入新項目。 ScreenToClient方法：該方法返回列表框在屏幕上的當前位置。 ClearSelection方法：該方法的作用是清除列表框中所有被選中的選項。 CopySelection方法：該方法用來把列表框中的所有選中的列表項復制到另一個列表框中。,ListBox組件的事件 OnDrawItem事件：當列表框中的內(nèi)容重新顯示時，該事件發(fā)生。

19、比如，當用戶選擇了列表框中的項目，系統(tǒng)需對選擇的項目反白顯示，此時就觸發(fā)OnDrawItem事件。但是該事件僅當Style屬性值為IbOwnerDrawFixed或者LbOwnerVariable時才會發(fā)生。 OnEnter事件：當ListBox組件成為當前列表框時，該事件發(fā)生。 OnMeasureItem事件：不管何時應(yīng)用程序需重新顯示在列表中的項目時，該事件發(fā)生。在事件發(fā)生后，它將測出需重畫區(qū)域的大小參數(shù)傳給OnDrawItem事件，該事件重新顯示給定的區(qū)域。,3.2.7 ComboBox組件,ComboBox組件在Standard標簽頁中，稱為組合框。它是設(shè)計Windows應(yīng)用程序時使用

20、較多的組件。它匯集了列表框和編輯框的功能，使用戶可從下拉列表中選擇數(shù)據(jù)或者直接向組合框中輸入數(shù)據(jù)。,ComboBox組件的屬性 1. Style屬性 該屬性用來設(shè)置或返回組合框的風格。 2. Text屬性 該屬性用于設(shè)置或返回組合框中當前顯示出來的文本值。 3. ItemIndex屬性 該屬性指定組合框中被選擇的項目。 4. SelStart屬性 該屬性確定組合框中所選文本的開始位置。 5. DropDownCount屬性 該屬性控制組合框被下拉時彈出的項目條數(shù)。超出該屬性規(guī)定的項目數(shù)時，自動出現(xiàn)垂直滾動條。 ComboBox組件的常用方法 ComboBox組件的常用方法與ListBox組件的

21、相同，其列表項也是由Items屬性來控制。在程序中可以使用Add、Delete、Insert方法進行項目的添加、刪除和插入操作等管理。,3.2.8 GroupBox組件,GroupBox組件又稱為分組框組件，它在組件面板的Standard標簽頁中。在該組件里可以放置如RadioButton、CheckBox等組件。放進去的組件將會自動成為一組。通過它的Caption屬性可以修改該組件的標題。,3.2.9 RadioGroup組件,在對象查看器中單擊Items屬性旁邊的省略號，然后在彈出的【String List Editor】對話框中添加項，每添加一行就會在RadioGroup組件中產(chǎn)生一個標

22、題為添加項文本內(nèi)容的RadioButton組件，添加完單擊OK按鈕。 RadioGroup組件的屬性 1. Items屬性 Items屬性用于生成個單選按鈕。 2.ItemIndex屬性 ItemIndex屬性用于表明單選按鈕組中哪一項被選中了。若為（缺省值），表示沒有被選中的項；若為0，表示第一項被選中；若為，表示第二項被選中；其他依次類推。,3.2.10 Button組件與BitBtn組件,Button組件（按鈕）是Windows應(yīng)用程序界面中最常用、最簡單的組件之一。除此之外，Delphi還提供了一種位圖按鈕（BitBtn）。這種按鈕的不同之處在于按鈕上可以顯示位圖。 Button組件的

23、主要屬性 1. Caption屬性：標題屬性。 2.Cancel屬性 決定該按鈕是否為取消按鈕，默認值為False。 3.Default屬性 決定該按鈕是否為默認按鈕，缺省值為False。 Button組件的常用事件 OnClick事件：單擊事件，是TButton組件的最常用事件。,3.2.10 Button組件與BitBtn組件,BitBtn組件的主要屬性 1. Glyph屬性 為按鈕指定一個位圖文件，顯示在按鈕的表面。 2. Kind屬性 決定位圖按鈕的種類。位圖按鈕使用最多的屬性就是Kind。 BitBtn組件的常用事件 OnClick事件：單擊事件，是TButton組件的最常用事件。,

24、3.2.11 SpeedButton組件,SpeedButton組件通常稱為快捷按鈕，在Additional標簽頁中。此組件與位圖按鈕非常相似,同樣可以顯示圖像，它們的主要區(qū)別是：SpeedButton按鈕一般只顯示圖像不顯示文字，另外SpeedButton可以保持在單擊時被選中的狀態(tài)，該組件在設(shè)計工具欄時使用。,SpeedButton組件的特殊屬性,1. AllowAllUp屬性 該屬性為True，則表示允許一組中的所有快捷按鈕均為彈起狀態(tài)。如果設(shè)置為False，則表示某組快捷按鈕中至少有一個不能彈起。 2. Down屬性 該屬性用于設(shè)置按鈕的狀態(tài)，其值為True，表示按鈕處于選中狀態(tài)。默認

25、值為False。 3. Flat屬性 該屬性判斷按鈕是否被選中。其值為True則表示按鈕在非選定狀態(tài)下沒有邊框，只有在選中的狀態(tài)下才有邊框。 4. GroupIndex屬性 當需要將幾個快捷按鈕合成一組時，需要用GroupIndex屬性設(shè)置。 5. Cursor屬性 該屬性用于設(shè)置鼠標的形狀，可供選擇的形狀很多，不同的形狀可增添程序的趣味性。,3.2.12 CheckBox組件,CheckBox組件通常稱為復選框，復選框往往是多個構(gòu)成一組，在應(yīng)用程序運行時，可以選中其中的一個或多個，也可以一個都不選。 CheckBox組件的主要屬性 1. Caption屬性 該屬性表示復選框所提示的內(nèi)容 。

26、2. Checked屬性 該屬性表示復選框是否被選中，有兩個可選值：True表示復選框被選擇，F(xiàn)alse 表示未選中。 3. State屬性 該屬性表示復選框當前的復選狀態(tài)，其值有三種：cbUnChecked(未選中)、cbChecked（選中）、cbGrayed （ 變灰選中）。,3.2.13 RadioButton組件,RadioButton組件通常稱為單選按鈕，在Standard標簽頁中，單選按鈕提供了一個選項集，只能在這些選項中排他性地選擇其中一個，所以叫單選按鈕。 該組件的主要屬性就是：Checked屬性，該屬性表明單選按鈕是否被選中。如果選中，則該屬性值為True，默認值為Fals

27、e，表示未選中。,3.2.14 Image組件,圖像組件Image在Additional標簽頁上，用來在窗口中顯示一幅圖片，可以在picture屬性中調(diào)入圖像文件。Delphi支持位圖(.BMP)、圖標(.ICO)、圖元(.WFM)三種文件格式。 比較重要的屬性： Autosize屬性和Stretch屬性。 它們決定了圖像在窗口中的顯示尺寸。Autosize屬性為True表示按原尺寸顯示，Stretch屬性為True表示圖像按對象圖框的大小顯示，這時圖像的大小可以人為改變。,3.2.15 Shape組件,圖形組件Shape可以處理多種幾何形狀，如線形、矩形、圓形等。通過設(shè)置Shape屬性設(shè)置幾

28、何圖形的類型，通過設(shè)置Pen和Brush的嵌套屬性，可以設(shè)置圖形邊框顏色、線型及圖形的風格、填充方式等。 Shape屬性可選值為stCircle、stEllipse、stRectangle、stRoundRect及stRoundSquare。,3.2.16 TreeView組件,TreeView（樹狀視圖）組件，在Win32標簽頁中?？梢岳迷摻M件描述一個樹狀結(jié)構(gòu)，如Windows資源管理器左窗格顯示的樹形結(jié)構(gòu)目錄，就可以利用TreeView組件實現(xiàn)。 在TreeView中，每個節(jié)點都是TtreeNode類型的對象，而它和所屬的節(jié)點又組成了一個TtreeNodes對象。在圖3-14中，Wind

29、ows是一個TtreeNode對象，而Windows和其下的子目錄又構(gòu)成了一個TtreeNodes對象，訪問TtreeNode和TtreeNodes對象的方法有所不同。,圖3-2 TreeView示例,3.2.17 ListView 組件,ListView（列表視圖）組件，在組件面板的Win32標簽頁。Windows資源管理器的右半部分是典型的列表視圖。它有四種方式，即大圖標、小圖標、簡單列表和詳細列表。ListView組件本身比較復雜，主要有兩類對象來控制，那就是縱向的列對象TlistColumn和橫向的TlistItem對象。,TlistColumn 每個列都有標題、對齊方式及寬度等屬性。

30、在TlistView中，所有的列集中起來，由Columns管理的，它是一個TlistColumns對象，有屬性Items和Count，通過這個對象的數(shù)組屬性Itemsn來訪問每個列。使用Columns的Add方法可以增加列。 TlistItem 這是描述列表項目的對象。每個項目都應(yīng)有標題Caption，復選狀態(tài)Checked。屬性ImageIndex，OverLayIndex，StateIndex分別表示項目的圖標序號，用于透明覆蓋的圖標序號，用于表明狀態(tài)的圖標序號。屬性Selected，Cut，F(xiàn)ocused分別表示項目是否被選中，是否被剪貼，是否具有輸入焦點。所有的項目集中由TlistVi

31、ew的屬性Items管理，它是TlistItems對象，有屬性Items和Count，通過這個對象的數(shù)組屬性Itemsn來訪問每個項目，使用方法Add增加列表項目。,TlistView組件的示例操作 (1)賦值 with ListView1.Items.Add do begin Caption:=caption; /添加第一項 SubItems.add(aaaaa); /添加后面數(shù)據(jù) SubItems.add(1234); end; /一定要使用WITH結(jié)構(gòu). (2)取值 listview1.Items.Itemi.Caption; /取得某條數(shù)據(jù)標題 listview1.Items.Itemi.SubItems.Stringsj; /取得某條數(shù)據(jù)內(nèi)容 listview1.Items.Itemi.SubItems.CommaText; /一條記錄的全部內(nèi)容,格式: “標題”,“內(nèi)容1”,“內(nèi)容2”,. listview1.Items.Itemi.SubItems.Text /一條記錄的全部內(nèi)容 (3)刪除 listview1.I