第4章常用组件

1、第4章 常用组件导读4.1 组件概述组件概述4.2 文本输入类组件4.3 按钮类组件4.4 列表类组件小结习题导读在使用Delphi 8 for .NET开发应用程序时将广泛地使用到组件。可视化组件库（Visual Component Library，简称VCL）是Delphi中最重要的部分，通过VCL可以在窗体中方便地构建供用户交互的界面。本章将主要介绍Delphi常用组件的基本功能及主要属性、方法等内容。学习目标：了解组件的分类掌握文本输入类常用组件的使用掌握按钮类常用组件的使用掌握列表类常用组件的使用4.1 4.1 组件概述组件概述4.1.1 组件分类组件分类1可视化组件（可视化组件（V

2、isual Component） 可视化组件在程序运行期间用户是可以看到的，也称为组件（Control）。组件又有两种不同的类型，即基于窗口的组件和基于图形的组件。基于窗口的组件（即窗口组件）是可以在运行时取得焦点的组件，能够包含其他组件，拥有窗口句柄，如Edit组件。图形组件没有窗口句柄，不能取得输入焦点，也不能包含其他组件，如Label组件。图形组件在最小化使用系统资源方面起着关键作用，特别是在那些频繁使用以及数量大的情况下最好使用图形组件，如工具条按钮。2非可视化组件（非可视化组件（Nonvisual Component） 非可视化组件是指在程序运行期间用户看不到的组件，它们是从TCom

3、ponent但不是从TControl派生出来的子类。非可视化组件主要用来向其他组件或整个应用程序提供某种服务，在设计时无需考虑它们在窗体中的位置。非可视化组件一般以图标形式显示，最典型的一个非可视化组件是定时器组件（TTimer）。4.1 4.1 组件概述组件概述组件的常见基本属性属性含义Height高度Width宽度Left组件在容器中的x坐标Top组件在容器中的y坐标Align组件上的对齐方式：居上、居下、居左、居右、占据剩余Visible设置组件是否显示，默认值为“true”Caption显示组件的标题名称Color显示组件的背景颜色Font设置组件显示文本的字体Ctl3D是否以3D方式

4、显示组件，默认值为“true”ShowHint是否显示组件的提示信息，默认值为“true”Hint组件的提示信息Enabled用户是否能够操作Name对组件进行标识的名称TabOrderTab次序4.1 4.1 组件概述组件概述4.1.2 组件的常用属性及事件组件的常用属性及事件 在Delphi中，每一个组件都具有特定的属性、事件和方法。组件的属性是对组件特性的描述，包括组件的外观特性（如位置、尺寸、外形、字体、可视性）和非可视化的特性，组件常见的基本属性见表4-1。组件的事件是对组件所做的某个动作或系统的某些行为（如按下鼠标、双击鼠标、窗体装入等）的反应。每个组件都提供满足用户的各类事件处理

5、器，当发生特殊事件时，应用程序将执行事件处理器中的代码。组件的常用事件及触发条件见表4-2。组件的方法是指属于该组件类或对象类型实例的函数或过程，每一类组件都有自己的方法，以实现各种功能。4.1 4.1 组件概述组件概述组件的常用事件及触发条件事件名触发条件OnClick当鼠标单击时触发本事件OnDblClick当鼠标双击时触发本事件OnMouseDown当鼠标左键按下时触发本事件OnMouseMove当鼠标移动时触发本事件OnKeyDown当按下任意键（包括组合键）时触发本事件OnKeyPress当按下任意键（单字符键）时触发本事件OnKeyUp当松开已按下键时触发本事件OnEnter当获得

6、焦点时触发本事件OnExit当失去焦点时触发本事件OnStartDrag当开始拖动时触发本事件OnDragDrop当组件拖动操作结束时触发本事件4.2 文本输入类组件在应用程序的界面上，往往需要用户输入文本数据，或者以一定的格式将文本显示给用户，这时可通过文本输入类组件来实现。4.2 文本输入类组件4.2.1 TLabel组件组件TLabel标签组件位于组件面板的Standard选项卡上，如图4-1所示，可以用来显示一个只读的字符串。通常利用TLabel标签组件在窗体上显示静态文本，如显示提示信息，也可显示动态文本，如用TLabel显示不断变化的当前时间。1用途用途 TLabel组件主要用来标

7、识应用程序中的其他对象，最常见的用法是把标签放在其他组件的旁边，如放在文本框、Memo框及单选按钮等组件的左侧或上方。标签上的文字信息有助于用户操作，也可为用户提供信息。2主要属性和方法主要属性和方法 TLabel组件常用的属性见前面的表4-1。下面介绍TLabel组件的主要属性和方法。4.2 文本输入类组件（1）A1ign属性：该属性决定TLabel组件的显示位置（使其位于窗口的某个部分）（2）Alignment属性：该属性设置文字在水平方向的对齐方式，（3）AutoSize属性：该属性决定标签的大小是否和文字保持一致，其默认值为false，即标签的大小不随文字的大小而变化。（4）Layou

8、t属性：该属性设置文字在垂直方向的对齐方式，（5）TransParent属性：该属性决定标签是否透明显示，主要在图形操作时使用，如果将其设置为true，则可透过标签看到背景图。（6）WordWrap属性：该属性决定当AutoSize属性为true时，文字超长时的显示方式。该属性为true时，则文字在纵向方向扩展，以多行显示；为false时，则文字在横向方向扩展，以完全容纳文本内容。4.2 文本输入类组件4.2.2 TEdit组件组件TEdit文本框组件位于组件面板的Standard选项卡上，如图4-1所示，可以显示、编辑单独的一行文本。1用途用途 TEdit组件提供了一个编辑区域，用户可以在区

9、域中输入单行信息。TEdit不但允许用户在文本框中输入数据，也可以用来显示查询的数据及提示信息。4.2 文本输入类组件2主要属性和方法主要属性和方法 （1）AutoSelect属性：该属性用来设置当TEdit组件获得输入焦点时，自动选中所有的文本。若它的值为true，则当TEdit组件获得输入焦点时，自动选中所有的文本；若它的值为false，则当TEdit组件获得输入焦点时，不自动选中所有的文本。 （2）AutoSize属性：用于控制是否随字体的高度来改变编辑框的高度。当AutoSize设置为true时，编辑框的高度会自动匹配输入文字的字体高度。但要注意，该属性只有当BorderStyle属性

10、设置为bsSingle时才有效。 （3）CharCase属性：该属性用于强制组件中的文本全部为大写（或小写）字母。 （4）Enabled属性：该属性决定文本框中的内容是否可以修改，其默认值为true，即文本框中的文本可以修改；当它的值为false时其中的文本不能修改。4.2 文本输入类组件 （5）Hint属性：该属性用来设置所显示的提示信息。例如通过将该属性设置为“请输入职工姓名”，并将ShowHint属性设置为true，则在应用程序运行时当用户将鼠标移到文本框并停顿片刻后，将显示引号中的提示信息。 （6）ImeMode属性：如果要设置为中文输入法，可以将ImeMode属性设置为imChine

11、se。 （7）ImeName属性：可以通过下拉组合框选择一个具体的输入法。 （8）PasswordChar属性：将用户输入的所有字符以同一个字符显示，其默认值是“#0”，表示编辑框直接显示用户输入的字符；如果将其设置为“*”，则不论用户输入什么，编辑框中都只显示“*”号，一般在键入密码时可以这样设置。 （9）Clear方法：该方法删除文本框中的所有文本。4.2 文本输入类组件 （10）ClearSelection方法：该方法删除文本框中被选择的文本。如果文本框中没有被选择的文本，则不删除任何内容。 （11）CopyToClipboard方法：该方法将文本框中已选择的文本拷贝到剪贴板上，并取代原

12、来剪贴板中的所有内容。如果用户未在文本框中选择任何文本，该方法的执行将不删除原来剪贴板的所有内容。 （12）CutToClipboard方法：该方法将文本框中已选择的文本拷贝到剪贴板上，并取代原来剪贴板中的所有内容，然后删除在文本框中被选中的内容。 （13）PasteFromClipboard方法：该方法将剪贴板上的内容拷贝到文本框中，并插入到文本框中光标所在的当前位置。 （14）SelectAll方法：该方法选择文本框中的所有文本。Edit组件最常用的事件（也是默认事件）为OnChange，一旦Edit组件中的文本内容发生了改变，就会触发OnChang4.2 文本输入类组件【例4-1】设计用

13、户登录验证的窗体，用来接收用户输入的用户名和口令，单击“确定”按钮进行验证，根据输入是否正确显示相应的提示信息。4.2 文本输入类组件编写DengLu窗体相应的程序代码。将组件添加到DengLu窗体后，编写相应的程序代码。(*定义2个unit级符号常量*)const iusename=yonghu; /定义用户名 ipassword=12345; /定义口令双击“确定”按钮，在代码编辑区中输入该按钮的OnClick事件处理代码：procedure TDengLu.BtnOKClick(Sender:TObject); begin if ( usename.text=iusename)and(p

14、assword.text=ipassword) then MessageDlg(欢迎使用教师人事档案系统！, mtInformation, mbOK, 0) else MessageDlg(对不起，您不是合法用户！请重新输入用户名和密码, mtInformation, mbOK, 0); end;双击“取消”按钮，在编辑区输入该按钮的OnClick事件代码：procedure TDengLu.BtnCancelClick(Sender: TObject);begin close;End;4.2 文本输入类组件4.2.3 TMemo组件组件TMemo备注框组件位于组件面板的Standard选项卡

15、上，可以显示、编辑多行文本。1用途用途 TMemo组件为用户提供了一种处理多行文本的方法，还可用来快速阅读文件中的数据。尽管TLabel、TEdit和TMemo组件有许多相似之处，但它们的使用场合却有所不同。如果只显示用户不能修改的信息，可采用标签；如果用户只处理单行信息，则使用TEdit组件；如果用户要处理多行文本，那么只能采用TMemo组件。4.2 文本输入类组件 2主要属性主要属性 TMemo组件的很多属性（如MaxLength、ReadOnly和Text等）和TEdit组件的属性类似，相同属性的含义不再赘述。以下是TMemo组件的特殊属性。（1）Lines属性：返回TMemo组件中文本

16、的行数。（2）ScrollBars属性：该属性用来设置TMemo组件是否含滚动条，（3）WantTabs属性：该属性用来设置是否可以使用Tab键来进行文本编辑。若其值设置为true，则可以用Tab键来使TMemo组件获得输入焦点，但不能用Tab键从TMemo组件切换到其他组件，默认值为false。4.2 文本输入类组件4.2.4 TRichEdit组件组件TRichEdit组件和TMemo组件几乎完全相同，但是TRichEdit组件中的文字可以有多种字体、多种颜色。TRichEdit组件位于组件面板的Win32选项卡上，如图4-4所示。TRichEdit组件可以编辑多行文本，它比TMemo的功

17、能更强大，能够对字体格式化和段落格式化，也能插入OLE文档，支持鼠标拖放，还可以搜索和打印。它是一个相当完美的编辑器，保存的文件格式为RTF。但是TRichEdit组件没有提供完整的用户界面，诸如打开、保存、打印、剪贴、拷贝、搜索等操作，需要通过编程，结合其他组件来完成。TRichEdit的主要属性、事件和方法与TMemo基本相似，在功能上TRichEdit更加丰富4.3 按钮类组件Delphi为用户提供了3种按钮组件，也是平时在Windows应用程序中经常用到的按钮：普通按钮（Tbutton）位图按钮（TBitBtn）加速按钮（TSpeedButton）4.3 按钮类组件4.3.1 TBut

18、ton组件组件 TButton命令按钮组件位于组件面板的Standard选项卡上，如图4-1所示。1用途用途 TButton组件是提供给用户用来执行命令的组件，通常称为命令按钮。按钮在Windows程序中使用非常广泛，它可以放在应用程序的任何地方，触发之后执行特定的操作。4.3 按钮类组件2主要属性主要属性 （1）Cancel属性：该属性决定按钮是否为Cancel按钮。当设置为true时为Cancel按钮，即当用户按Esc键时，将执行按钮的OnClick事件处理程序。当窗体中有多个Cancel按钮时，则只调用TabOrder属性最小的按钮的OnClick事件。 （2）Caption属性：该属性

19、用来让用户识别组件，输入属性值显示在组件表面。 （3）Default属性：该属性决定按钮是否为默认按钮。如果将其设置为true则按钮为默认按钮，此时当用户按Enter键时，将执行按钮的OnClick事件处理程序。 （4）Enabled属性：该属性决定按钮是否能对鼠标、键盘和计时器事件做出响应。 （5）ModalResult属性：该属性确定按钮的父窗体的关闭方式。 （6）Name属性：该属性是组件的名称，与Caption不同，它不显示在组件表面，而是在应用程序代码中作为组件的名称标识4.3 按钮类组件4.3.2 TBitBtn组件组件TBitBtn位图按钮组件位于组件面板的Additional选

20、项卡上，它为图形按钮组件。1用途用途 TBitBtn组件与其他按钮一样，在对话框和窗体中广泛使用。该组件的作用和TButton组件相同，惟一的区别是可以在位图按钮上同时显示文本信息和位图。4.3 按钮类组件2主要属性主要属性 （1）Glyph属性：该属性指定在用户选择的位图按钮表面显示的图形。单击该属性右边的“”按钮，弹出装入位图文件的Picture Editor对话框，如图4-6所示，单击此对话框中的Load按钮选择用户需要的位图，此时选择的位图将显示在对话框中，再单击OK按钮后，位图将显示在按钮上。 （2）Kind属性：该属性决定位图按钮的种类，包括bkAbort、bkAll、bkCanc

21、el、bkClose、bkCustom、bkHelp、bkIgnore、bkNo、bkOK、bkRetry、bkYes。 （3）Layout属性：该属性决定位图在按钮上的显示位置，即位图可以显示在按钮的左边、右边、上边或下边，包括：blGlyphBottom、blGlyphTop、blGlyphLeft、blGlyphRight。 （4）Margin属性：该属性确定位图按钮边沿和位图边沿之间的距离，单位为像素。该属性的默认值为-1，表示位图和文字都在按钮的中间显示，但相互不重叠。4.3 按钮类组件(5）NumGlyphs属性：当用户为位图按钮在Glyph属性中指定多个图像时，必须用该属性指定按

22、钮要显示的图像，它的值可以是14之一，默认值为1。（6）Spacing属性：该属性确定位图按钮上图像和标题之间的间隔。该属性值可以是负数、0和正数，默认值为4。（7）Style属性：该属性决定位图按钮的外观，共有3种可能的值：bsAutoDetect、bsWin31和bsNew，即位图按钮采用Windows哪一种版本的风格。bsAutoDetect：表示当使用Windows 3.x时，位图按钮采用标准的Windows 3.x外观，当使用Windows 3.x以后的版本时，位图按钮采用较新的外观。bsWin31：表示不考虑所运行的Windows版本而采用标准的Windows 3.1外观。bsNe

23、w：表示不考虑所运行的Windows版本而采用新的位图按钮外观。4.3 按钮类组件4.3.3 TSpeedButton组件组件TSpeedButton组件位于组件面板Additional选项卡上，如图4-5所示，它为加速按钮组件。1用途用途 TSpeedButton组件可以同时显示图形和文字，用法与位图按钮很相似。在按钮上显示图像时，它的图像必须是Windows的位图文件（.bmp）。该组件常和TToolBar、TPanel等组件一起使用，用户使用该组件可快速建立工具栏和工具面板。4.3 按钮类组件2主要属性主要属性 （1）AllowAllUp属性：该属性决定同组中的加速按钮是否可一个都不选择

24、。如果将其设置为true，那么在同一组中的加速按钮可一个都不选择，但可以出现；如果将其设置为false，则必须选择同一组中的快速按钮之一，即必须有一个加速按钮处于被按下状态。默认值为false。 （2）Down属性：该属性用来设置显示状态。如果将其设置为true，那么加速按钮以按下状态（Down）显示；如果将其设置为false，则加速按钮以未选中（UnSelect）状态显示。 （3）Flat属性：若该属性值为true，则按钮在未选中状态下没有边框，只有在选中状态下才有边框。 （4）GroupIndex属性：该属性决定哪些加速按钮作为一组。默认值为0，表示该组件不属于某个组。具有相同GroupI

25、ndex属性值且不为0的加速按钮属于同一个组，当单击其中之一时，该按钮一直保持按下（Down）状态，直到单击了同一组的另一个按钮为止。4.3 按钮类组件4.3.4 TRadioButton组件组件TRadioButton单选按钮组件位于组件面板的Standard选项卡上（如图4-1所示），它为单选按钮组件，可以在多个条件中选择惟一的一个。通常在使用单选按钮时，总是将其进行分组。在同一组中，只能同时选中一个按钮，其余按钮自动取消选中。在实现单选按钮的分组时，可以有两种方法：（1）利用分组框组件（TGroupBox）和单选按钮组件（TRadioButton）来实现。首先向窗体中添加分组框，然后向分

26、组框中添加单选按钮。这样，同一个分组框中的单选按钮就自动成为一组。可以通过TRadioButton组件的Checked属性来确定哪一个单选按钮被选中。（2）利用单选按钮分组框（TRadioGroup）实现。可以通过ItemIndex属性来确定选中哪一个单选按钮。4.3 按钮类组件1用途用途 TRadioButton组件也称为开关按钮。单选按钮为用户提供了一组相互排斥的选项按钮，无论何时选项组中最多只有一个选项被选择。如果在选择过程中又选择了另一个按钮，则先前被选择的按钮会自动变成未选择状态。2主要属性主要属性 （1）Checked属性：该属性表示单选按钮是否被选中。如果该属性为true，则单选

27、按钮的框中出现一个圆点表示选中；默认值为false，表示未选中。 （2）Enabled属性：该属性用来控制单选按钮是否处于激活状态。默认值为true，即为激活状态；当该属性为false时，处于非激活状态，此时组件上显示的字体为灰色，表示该按钮不起作用。 （3）Visible属性：该属性决定该单选按钮在窗体上是否可见。默认值为true，即可见。4.3 按钮类组件4.3.5 TCheckBox组件组件TCheckBox复选框组件位于组件面板的Standard选项卡上（如图4-1所示），它为复选按钮组件，可以组成多项选择。1用途用途 TCheckBox组件称为复选框，用户可通过单击一个选项来选择或取

28、消选择该选项，在一个选择组框中一次可做出多项选择。4.3 按钮类组件2主要属性主要属性 （1）Alignment属性：该属性用于设置复选按钮上文字的位置。taRightJustify表示文字显示在小方框的右边；taLeftJustify表示文字显示在小方框的左边。 （2）AllowGrayed属性：该属性的默认值为false，这时复选框只有两种状态，即“选中”、“未选中”。但当该属性为true时，复选框则有3种状态，即“选中”、“未选中”和“部分选中”灰色。 （3）State属性：该属性用来设置或返回复选框的状态，可取以下值： cbChecked：表示复选框处于启用状态。 cbUnchecke

29、d：表示复选框处于未启用状态。 cbGrayed：表示复选框处于启用且变灰状态。 （4）Checked属性：该属性用来检测复选框当前处于什么状态，为true表示选中，为false表示未选中。如果复选框的State属性为cbGrayed或cbUnchecked，则Checked属性为false。4.3 按钮类组件【例4-2】在本书第3章例3-1的基础上重新设计教师基本信息输入窗体，设计窗体完成后的效果如图4-8所示。此窗口中新添加了两个标签组件、两个单选按钮组件、4个复选框组件。组件类型组件名属性名属性值标签（TLabel）Label6Caption性别Label7Caption喜爱阅读哪类书籍

30、单选按钮（TRadioButton）RadioButton1Caption男RadioButton2Caption女复选框（TCheckBox）CheckBox1Caption历史类CheckBox2Caption文学类CheckBox3Caption哲学类CheckBox4Caption科学类4.4 列表类组件若需要多个选项时，使用单选按钮和复选框往往需要一个很大的窗体才能容纳下，这时就可以使用列表类组件4.4 列表类组件4.4.1 TListBox组件组件TListBox列表框组件位于组件面板的Standard选项卡上（如图4-1所示），在其中可以显示一系列字符串，用户可以选中其中的一个或

31、多个。1用途用途 TListBox组件用来显示可滚动的项目列表，在项目列表中可以选择一个或多个项目，但不能直接对这些项目进行修改。列表框中的项目列表是Items属性的值，可对列表框中的项目进行增加、删除和插入操作。4.4 列表类组件2主要属性主要属性 （1）Columns属性：该属性用来决定列表框中项目的列数，默认值为0，表示列表框以单列显示。 （2）ExtendedSelect属性：该属性决定是否允许使用Shift键和Ctrl键对列表框中的项目进行多项选择。只有当该属性为true时，组件的MultiSelect属性才生效，通过配合使用Shift键选择连续多个项目，通过配合使用Ctrl键选择不

32、连续的多个项目。如果将该属性设置为false，那么MultiSelect属性即便设置成true也无意义。 （3）IntegralHeight属性：该属性决定列表框在窗体上的显示方式。设置为true时，在垂直方向上可完整地看到列表框的项目；设置为false时，列表框的高度由ItemHeight属性决定。 （4）ItemHeight属性：当列表框的Style属性设置为lbOwnerDrawFixed时，列表框中的每一个项目的高度由ItemHeight属性来决定；当Style属性为其他值时，ItemHeight属性无意义。 （5）ItemIndex属性：该属性返回列表框中的项目的索引号，从0开始，依

33、次增1。4.4 列表类组件 （6）Items属性：该属性用于设置列表框中显示的内容。当按下Items属性右边的“”按钮时，将弹出StringListEditor窗口（串列表编辑器），用户可在该编辑窗口中输入将要在列表框中显示的项目的默认值。用户也可在程序运行过程中通过调用相应方法动态地向列表框中增加项目，如在窗体中有一个列表框组件ListBox1，则可通过代码改变列表框的内容，其方法如下： 向列表框中增加项目：ListBox1.Items.Add(增加的新项目) 删除当前选中的项目：ListBox1.Items.Delete(ListBox1.ItemIndex) 清除所有项目：ListBox

34、1.Clear （7）MultiSelect属性：该属性用来决定用户是否可从列表框中一次选中多项。其值为true时，用户可选择多项。4.4 列表类组件 （8）SelCount属性：当MultiSelect属性设置为true时，该属性返回在列表框中用户选中的项目的个数。 （9）Selected属性：该属性用来检测在列表框中某一项是否被选择，若该属性为true，表示指定的项目被用户选中。 （10）Sorted属性：该属性用来控制列表框中的数据是否自动进行排序。如果将其设置为true，那么列表框的数据按字母顺序进行排序；默认值为false，即不对数据进行排序。 （11）Style属性：该属性用来设置

35、列表框中项目的显示方式。常取以下值： lbOwnerDrawFixed: 列表框中的每个项目可以是字符，也可以是图像，其高度由ItemHeight属性决定。 lbOwnerDrawVariable：列表框中的每个项目可以是字符或图像，其高度可变。 lbStandard：默认值，即列表框中的每个项目作为一个高度相同的字符串显示。4.4 列表类组件【例4-3】在例4-2中的InputForm窗体中新添加1个标签和1个列表框，用来输入籍贯，要求使用动态方法向列表框中增加内容。 添加如下代码： procedure TInputForm.FormCreate(Sender:Tobject);begin

36、/输入如下6行代码 ListBox1.Items.Add(山西); /使用Add方法向列表框增加项目 ListBox1.Items.Add(北京); ListBox1.Items.Add(河北); ListBox1.Items.Add(河南); ListBox1.Items.Add(湖南); ListBox1.Items.Add(内蒙古);end; 4.4 列表类组件4.4.2 TComboBox组件组件TComboBox组合框组件位于组件面板的Standard选项卡上（如图4-1所示）。组合框由1个编辑框和1个下拉式列表框组成，可以从多个列表条目中选择一个。1用途用途 TComboBox组件

37、是设计Windows应用程序时使用较多的组件之一。该组件汇集了列表框和文本框的功能，其作用是供用户从下拉列表中选择数据或直接向组合框中输入数据。组合框下拉列表的内容是该组件的Items属性值，Items属性为字符串类型。4.4 列表类组件2主要属性主要属性 （1）DropDownCount属性：该属性用来设置组合框下拉列表中可显示的文本行数。默认值为8，即下拉列表在不需要滚动的情况下可以显示8个项目（8行文本）。 （2）Enabled属性：该属性决定是否使组合框处于激活状态。如果将其设置为false，则组合框处于非激活状态，程序运行时组合框区域呈灰色显示。 （3）Style属性：该属性用来设置

38、组合框中项目的显示方式。可取以下值：csDropDown：为默认值，是由编辑框和列表框组合而成的组合框，列表框中的每一个项目都是高度相同的字符串。csDropDownList：只有列表框而没有编辑框，每一个项目都是高度相同的字符串。csOwnerDrawFixed：和TListBox组件的lbOwnerDrawFixed方式相同。csOwnerDrawVariable：和TListBox组件的lbOwnerDrawVariable方式相同。csSimple：只有编辑框而没有列表框。4.4 列表类组件 （4）Text属性：该属性用来设置或返回编辑框上显示出来的文字内容，也可在程序中对该属性赋值。

39、该属性的赋值语句为：.Text:= .Item索引号; （5）ItemIndex属性：该属性返回组合框中被选中项目的索引号，从0开始，依次加1。另外，用户可通过Add、Delete和Insert方法对列表中的项目（Item）进行增加、删除和插入操作。【例4-4】在本章例4-1的基础上重新设计程序，增加一个显示窗体InfoForm，用来显示所输入的教师的基本信息，（3）编写代码。InputForm窗体的事件处理程序代码如下：implementationuses InfoForm; /引用窗体InfoForm所在单元$R *.dfm procedure TInputForm.FormCreate(

40、Sender: TObject);begin /输入如下6行代码 ListBox1.Items.Add(山西); /使用Add方法向列表框增加项目 ListBox1.Items.Add(北京); ListBox1.Items.Add(河北); ListBox1.Items.Add(河南); ListBox1.Items.Add(湖南); ListBox1.Items.Add(内蒙古);end;4.4 列表类组件运行程序4.4 列表类组件4.4.3 TTreeView组件组件 TTreeView组件位于组件面板的Win32选项卡上（如图4-4所示），可以用来显示具有树型层次的数据。1用途用途 T

41、TreeView组件在一个层次列表中包含了文字、图形和数据。它类似于Windows资源管理器左边窗格中以树的形式显示磁盘或光盘上的目录结构。每一个节点（称为父节点）可包含其他节点（称为子节点），父节点可以用展开或折叠的方式显示。每一个节点是一个TTreeNode对象，整个列表也是一个TTreeNode对象，由Items属性表示。4.4 列表类组件2主要属性主要属性 （1）AutoExpand属性：该属性为true时，运行时使选中的项展开，未选中的项折叠；若为false，单击选中的项时并不展开，必须双击才能展开。 （2）Items属性：该属性相当于一个元素类型为TTreeNode类型的数组，用来存放TTreeView组件