1、2023年12月12日星期二DELPHI程序设计基础教程第八章 窗体和常用组件t本章学习导读t8.1 窗体基础知识t8.2 组件概述t8.3 窗体的组件对象t8.4 按钮类组件t8.5 文本对象框组件t8.6 菜单、工具栏和状态栏组件t8.7 对话框类组件t8.8 计时器组件t8.9 安装新组件t本章小结2023年12月12日星期二DELPHI程序设计基础教程本章学习导读t 友好、简单的界面是一个优秀软件的基本要素之一。用户在操作计算机时不需要使用大量的专业术语，更不需要记住繁杂的命令，只需点击鼠标即可，大部分Windows软件都需要适应这种计算机大众化的潮流，这就对程序设计的界面提供了更高的
2、要求。t 本章首先对窗体、组件的基本属性、方法和事件做了介绍，然后对简单组件、菜单栏、工具栏、状态栏、对话框、计时器以及新组件的安装进一步说明，希望大家能够掌握常用组件的使用技巧。2023年12月12日星期二DELPHI程序设计基础教程8.1 窗体基础知识t8.1.1 窗体的属性、方法和事件t8.1.2 窗体的创建和销毁2023年12月12日星期二DELPHI程序设计基础教程8.1.1窗体的属性、方法和事件在Delphi中，窗体（Form）组件是一个特殊的组件，任何组件都要放到该组件中，因此，Form起到容器的作用，如果没有窗体，那么所谓的图形用户界面就不存在了。1窗体的基本属性（1）Acti
3、ve属性 该属性用于判断窗体是否处于激活状态，如果窗体是当前打开窗体，它的Active属性值为True，否则为False。（2）AutoScroll属性 该属性决定窗体上是否出现滚动条。如果属性值为True，当当前组件不能完全显示它包含的所有组件时，窗体将自动出现滚动条，可以通过滚动条查看窗体中的所有控件，如果属性值为False，滚动条始终不出现。（3）BorderIcons属性 该属性定义了出现在窗口标题栏中的按钮 2023年12月12日星期二DELPHI程序设计基础教程8.1.1窗体的属性、方法和事件（4）BorderStyle属性 该属性用来设置窗体的外观和边框（5）Caption属性
4、该属性用来指定窗体标题栏左侧的说明文字内容。（6）Color属性 该属性用来指定窗体的工作区颜色，它的默认值为clBtnFace，即我们所常见的背景色灰色。（7）Font属性 该属性用来指定窗体中文字的字体、颜色、大小等。如果将窗体中组件的属性ParentFont设置为True，则该组件的字体就与其父窗体的字体设置完全相同。在程序设计过程中，为了保持风格统一，应使工程中的窗体风格尽量一致，可以先设置窗体的Font属性，然后使窗体中所有组件的ParentFont属性值为True（组件的默认值）就可以了，一般不单独设置窗体中组件的Font属性。（8）FormStyle属性 FormStyle属性用
5、来指定窗体类型 2023年12月12日星期二DELPHI程序设计基础教程8.1.1窗体的属性、方法和事件（9）Icon属性 该属性用来指定标题栏左侧显示的图标。（10）Name属性 该属性用来标识工程中的窗体。通常，在系统的设计阶段就应确定工程中的所有窗体名称，在编码阶段根据设计文档修改相应窗体的Name属性，一般不在程序运行期间通过代码修改Name属性。（11）Position属性 该属性用来设置窗体的大小和显示的位置。（12）WindowsState属性 该属性用来设置窗体的显示状态 2023年12月12日星期二DELPHI程序设计基础教程8.1.2 窗体的创建和销毁1窗体的创建（1）在集
6、成开发环境中创建 在Delphi7的集成开发环境中，选择“文件|新建|窗体”，即可创建一个窗体（2）Create语句动态创建 动态的创建窗体，见代码：procedure TForm1.Button1Click(Sender:TObject);var Form2:TForm;begin Form2:=TForm.Create(Self);Form2.Caption:=新建的窗体Form2;Form2.Show;end;2023年12月12日星期二DELPHI程序设计基础教程8.1.2 窗体的创建和销毁2窗体的释放（1）Free释放 销毁一个动态创建的TForm对象，释放TForm对象所占用的内存
7、，可以用下列语句实现：Form1.Free;（2）Release释放 该方法的调用，将释放窗体及其包含的组件占用的内存空间，它和Free方法类似，只是该方法要等到窗体的所有事件句柄或窗体中各组件的事件句柄全部执行完毕后，才释放窗体，可以用下列语句实现：Form1.Release;（3）Destroy释放 判断对象是否为空，如果不为空就会销毁一个对象，释放所占据的内存，否则会出现异常，可以用下列语句实现：Form1.Destroy;2023年12月12日星期二DELPHI程序设计基础教程8.2 组件概述t8.2.1 组件的类型t8.2.2 组件的属性、方法和事件2023年12月12日星期二DEL
8、PHI程序设计基础教程8.2.1 组件的类型 可以把组件分为四类：标准组件、图形组件、自定义组件、非可视化组件：1标准组件 Delphi提供标准组件来封装Windows操作系统控件的行为，这些组件存在于组件面板上。2图形组件 图形组件不需要窗口句柄，所以不消耗Windows资源，不能获得输入焦点，如TLabel、TImage。这种组件也不能作为容器在其上放置别的控件。3自定义组件 自定义组件是指那些不属于标准Delphi组件库的组件，换句话说，这些组件是开发人员自己编写的，并由开发人员加入到已存在的组件集中。4非可视化组件 非可视化组件在运行时用户是看不见的，在设计时，它以图标的形式出现在窗体
9、上，因此可以在设计时将鼠标移到组件上查看其属性。2023年12月12日星期二DELPHI程序设计基础教程8.2.2 组件的属性、方法和事件1组件的属性 属性是组件的一项描述内容，用以描述对象的一个特性，不同的组件有不同的属性，而每个对象都由若干属性来描述。在可视化编程中，常见的属性有标题（Caption）、名称（Name）和字体（Font）等。通过修改或设置某些属性能有效的控制组件的外观和操作。属性值的设置或修改可以通过对象检视器中的属性窗口来进行，也可以通过编程的方式在程序运行的时候来改变对象的属性。每个组件都有自己特定的属性，有些属性是所有的（或大多数）组件通用的 2023年12月12日星
10、期二DELPHI程序设计基础教程8.2.2 组件的属性、方法和事件2窗体的基本方法（1）Close方法 该方法的执行将关闭窗体，其基本语法为：Form1.Close;（2）Hide方法 该方法将窗体隐藏起来，其基本语法为：Form1.Hide;（3）Release方法 该方法将关闭窗体并释放窗体及窗体中组件所占用的内存。（4）Show方法 该方法将显示窗体或将窗体置前，使用Show方法可以在窗体不关闭的情况下切换到调用它的窗体。值得注意的是：在调用其它窗体时，首先要将被调用窗体的单元引用到调用单元中。（5）ShowModal方法 该方法将显示一个模式窗体（即不能够切换到其它窗体，如需切换必须关
11、闭这个窗体）。2023年12月12日星期二DELPHI程序设计基础教程8.2.2 组件的属性、方法和事件3窗体的基本事件（1）OnCreate事件 该事件在窗体创建时发生，用户可以在该事件处理过程中对窗体进行相关的初始化操作。（2）OnShow事件 当窗体的Visible属性被设置为True时，触发该事件。（3）OnActivate事件 当窗体获得获得焦点（如用户单击窗体）时触发该事件。值得注意的是此事件中所有可视组件的方法都不能使用，因为在OnActivate事件中，可视组件还没有建立。（4）OnPaint事件 当重绘窗体时触发该事件。当窗体被创建并且其Visible属性为True时，OnC
12、reate、OnShow、OnActivate、OnPaint事件将依次被触发。2023年12月12日星期二DELPHI程序设计基础教程8.2.2 组件的属性、方法和事件（5）OnClose事件 当窗体被关闭时触发该事件。（6）OnKeyDown事件 该事件在按下键盘时发生，此事件中有两个常用参数：Key和Shift。（7）OnKeyPress事件 该事件在窗体中获得键盘输入的焦点，并且在用户按键时发生，此事件中有个重要参数：Key。（8）OnMouseDown事件 该事件在按下鼠标时发生，此事件中有两个重要参数：Button和Shift。（9）OnMouseMove事件 该事件是当鼠标在窗体
13、中移动时发生，此事件有三个重要参数：Shift、X和Y。（10）OnMouseUp事件 该事件是在松开鼠标按键时发生。通常可以利用OnMouseDown事件、OnMouseMove事件、OnMouseUp事件来实现画图程序。2023年12月12日星期二DELPHI程序设计基础教程8.3 窗体的组件对象t8.3.1 向窗体中添加组件t8.3.2 编辑组件对象2023年12月12日星期二DELPHI程序设计基础教程8.3.1 向窗体中添加组件（1）在组件栏中需要添加的组件上单击一下鼠标左键，然后在窗体中单击一下鼠标左键并拖动，松开鼠标左键后，组件就以刚才拖动的大小出现在窗体中，可自行调整控件位置及
14、其大小；（2）在组件栏中需要添加的组件上单击一下鼠标左键，然后在窗体中单击一下鼠标左键，这时组件以固定的大小出现在窗体中，可自行调整控件位置及其大小；（3）在组件栏中双击组件，则被双击的组件就会以固定的大小添加到当前默认的窗体或容器组件中；（4）在窗体中选择一个或多个组件，通过“编辑|复制”复制到剪贴板中，然后通过“编辑|粘贴”将剪贴板中的组件粘贴到窗体中，粘贴出来的组件与原组件具有基本一致的属性（主要为Name属性不同）；（5）通过快捷键“CtrlC”将选中的组件复制到剪贴板中，“CtrlV”将剪贴板的组件粘贴到窗体中。2023年12月12日星期二DELPHI程序设计基础教程 8.3.2 编
15、辑组件对象 1删除组件 在窗体中选择一个或多个组件，单击键盘上的“Delete”键，也可以通过“编辑|剪切”命令实现。2调整组件位置和大小 （1）键盘操作 利用键盘的“”、“”、“”、“”可以在窗体中选择组件，选中某个组件后，通过“Ctrl”、“Ctrl”、“Ctrl”、“Ctrl”组合键可以改变组件的位置，通过“Shift”、“Shift”、“Shift”、“Shift”组合键可以改变组件的大小。2023年12月12日星期二DELPHI程序设计基础教程8.3.2 编辑组件对象（2）鼠标操作 利用鼠标左键单击组件，则将组件选中，这时被选中的组件四周出现8个正方形黑点，将鼠标移动到某个黑点上，鼠
16、标形状将变成上下拖动的形状，这是按下鼠标的左键进行拖动，即可改变控件大小，用鼠标左键点击控件并拖动，可以改变组件的位置。用鼠标粗略的改变控件的大小和位置，用键盘精确的改变控件的大小和位置，如果需要获取多个大小一致的某个控件，最好使用剪切板进行复制。（3）菜单操作 选中需要调整的控件，通过“编辑|对齐”对齐多个控件，“编辑|大小”统一调整多个控件大小。2023年12月12日星期二DELPHI程序设计基础教程8.4 按钮类组件t8.4.1 Button组件t8.4.2 BitBtn组件t8.4.3 RadioButton组件和RadioGroup组件t8.4.4 CheckBox组件和GroupB
17、ox组件2023年12月12日星期二DELPHI程序设计基础教程8.4.1 Button组件 1Button组件的常用属性（1）Cancel属性 当按钮的Cancel属性值为True，用户按下Esc键时触发该按钮的OnClick事件，当按钮的Cancel属性值为False，用户按下Esc键时不触发该按钮的OnClick事件，默认值为False。（2）Default属性 当按钮的Default属性值为True，用户按下Enter键时触发该按钮的OnClick事件，当按钮的Default属性值为False，用户按下Enter键时不触发该按钮的OnClick事件，默认值为False。但是在程序运行期
18、间，如果另外一个按钮B获得焦点，按钮B将成为临时的默认按钮，此时按下Enter键将触发按钮B的OnClick事件。2023年12月12日星期二DELPHI程序设计基础教程8.4.1 Button组件（3）Caption属性 Caption属性用于设置Button组件上显示的文字，可以将Caption属性值中字符前添加“&”将该字符设为快捷键，窗体处于激活状态时，按下“Alt该字符”将触发该按钮的OnClick事件。（4）Enabled属性 当Enabled属性值为False，则运行时按钮以浅灰色显示（设计时与属性值为True的按钮没有任何区别）表明按钮无效，即按钮不能获得焦点，通过鼠标、键盘或
19、快捷键均不能触发该按钮的OnClick事件，默认属性值为True。（5）Visible属性 当Visible属性设置为False时，运行时按钮不可见，设计时与属性值为True的按钮没有任何区别，当Visible属性设置为True时，运行时可见。（6）WordWrap属性 当WordWrap属性值为False时，按钮上文字长度超过按钮大小时自动换行，否则不自动换行。2023年12月12日星期二DELPHI程序设计基础教程8.4.1 Button组件（7）TabOrder属性 TabOrder属性用来指定按Tab键时获得焦点的顺序。TabOrder属性的取值类型为Integer，从0开始。TabO
20、rder属性的设置适用于所有能够获得焦点的组件，可以在组件上单击鼠标右键，在弹出菜单上选择“Tab键顺序”来设置Tab键顺序。（8）Font属性 Font属性用来设置Button组件内显示的文字大小、字体和格式等，单击Font属性左侧的“”显示Font属性的子属性，其中Color子属性用来设置文字的颜色，Name子属性用来设置字体（如“黑体”），Size子属性用来设置文字的大小，其取值为Integer类型，Style子属性用来设置文字的样式，如粗体（fsBold）、斜体（fsItalic）、下划线（fsUnderline）和删除线（fsStrikeOut）。Font属性的设置适用于所有可视组件
21、。2023年12月12日星期二DELPHI程序设计基础教程8.4.1 Button组件2Button组件的常用事件 Button组件最常用的就是用户单击按钮时触发的OnClik事件，当单击按钮时，改变按钮位置和显示文字的实现步骤如下：（1）将一个Button组件放置到窗体上；（2）选中按钮，在对象检视器中选中Events选项卡，选中OnClick事件后会有一个获得焦点的下拉列表框，双击该下拉列表框，进入该按钮的OnClick事件。或者选中按钮后双击按钮，添加下例所示代码：Button1.Left:=100;/改变按钮横坐标Button1.Top:=10;/改变按钮纵坐标Button1.Word
22、Wrap:=True;/当按钮文字长度超过按钮大小时自动换行Button1.Caption:=能改变位置的按钮;/改变按钮上显示文字2023年12月12日星期二DELPHI程序设计基础教程8.4.2 BitBtn组件（1）Kind属性 Kind属性用于设置按钮上的图像，一共有十一个值，一个比较特殊的属性值为bkCustom，当Kind属性值为bkCustom时用户可以使用自己制作的图形，在Glyph属性中设置图形路径。（2）Glyph属性 当Kind属性值为bkCustom时，Glyph属性为图片路径，能够将4个图片同时指定给Glyph，分别表示按钮的未选择、禁止、单击、单击且保持按下时的状态
23、。（3）Layout属性 Layout属性用来设置按钮上文字与图片的相对位置：blGlyphTop（图片在文字上方）、blGlyphBottom（图片在文字下方）、blGlyphLeft（图片在文字左边、默认值）、blGlyphRight（图片在文字右边）。（4）Margin属性 Margin属性用来设置图片与按钮边界的距离。（5）Spacing属性 Spacing属性用来设置按钮上图片与文字的距离。2023年12月12日星期二DELPHI程序设计基础教程8.4.3 RadioButton组件和RadioGroup组件1RadioButton组件 RadioButton组件也称为单选按钮，用于
24、直观的表示某个选项是否选中，这些选项是互斥的，通常成组的使用，默认情况下，放在同一个容器如Form、Panel、RadioGroup、GroupBox中的单选按钮总是自动的变成一组，一组选项中只能有一个选项被选中，选择了其中一个选项，同一组中的其它选项将自动处于非选择状态。设计过程中，总是先添加一个分组组件（如Panel、RadioGroup、GroupBox），然后向分组组件中添加适当数量的RadioButton组件，这样，同一个分组框中的单选按钮就自动成为一组。可以通过RadioButton组件的Checked属性来判断哪一个单选按钮被选中。2023年12月12日星期二DELPHI程序设计
25、基础教程8.4.3 RadioButton组件和RadioGroup组件（1）RadioButton组件的常用属性：1、Alignment属性 Alignment属性用来设置RadioButton组件上文字相对于圆框的位置，Alignment属性值有两个：taLeftJustify（文字在圆框左边）、taRightJustify（文字在圆框右边，默认值）。2、Checked属性 当Checked属性值为True时，单选按钮为选中状态，否则未选中，一组单选按钮中只能有一个单选按钮为选中状态。（2）RadioButton组件的常用事件 RadioButton组件的常用事件为OnClick事件，当单
26、选按钮被选中时触发该事件。2023年12月12日星期二DELPHI程序设计基础教程8.4.3 RadioButton组件和RadioGroup组件2RadioGroup组件 RadioGroup组件是代表一组单选按钮的组，它把几个单选按钮组合在一起，单选按钮之间在选择上是相互排斥的，当用户把RadioGroup组件放到窗体上后，不需要添加任何RadioButton组件，只需要设置RadioGroup组件的Items属性，Delphi会为Items属性中的每一行字符建立一个RadioButton组件。使用RadioGroup的优势不仅在于比GroupBox省事，更重要的是它可以在运行期间方便的对
27、RadioGroup的Items属性进行操作，RadioGroup能根据Items属性的行数（即单选按钮的个数）自动的调整每个单选按钮的高度。RadioGroup组件的常用属性如下：（1）Caption属性 Caption属性用来为单选分组框设置一个总的标题。（2）Columns属性 Columns属性用来设置RadioGroup组件中单选按钮的列数，默认值为1。（3）ItemIndex属性 ItemIndex属性用来返回RadioGroup组件中被选中的单选按钮的序号，第一项的序号为0，依次递增，默认为-1，表明默认为都不选中。（4）Items属性 Items属性是由RadioGroup组件
28、中所有单选按钮的文字组成的String对象。2023年12月12日星期二DELPHI程序设计基础教程8.4.3 RadioButton组件和RadioGroup组件（1）将一个RadioButton组件放到窗体上，将Caption属性设置为“改变窗体颜色”；（2）选中对象检视器中Items属性，单击Items属性右边的“”按钮，打开“String List Editor”，输入第一行文字“窗体颜色为红色”，第二行文字“窗体颜色为蓝色”，记得一定要换行；（3）双击RadioGroup组件，输入以下代码：if RadioGroup1.ItemIndex=0 thenForm1.Color:=clR
29、ed /这里不能有分号elsebegin Form1.Color:=clBlue;RadioGroup1.Items.Add(窗体颜色为绿色);/添加一个单选按钮 RadioGroup1.Items.Add(窗体颜色为黄色);/添加一个单选按钮 RadioGroup1.Columns:=2;/将RadioGroup组件中的按钮分为两列end2023年12月12日星期二DELPHI程序设计基础教程8.4.4 CheckBox组件和GroupBox组件 1CheckBox组件 CheckBox组件也称为复选按钮，用户可以同时选择一个或多个按钮 （1）CheckBox组件的常用属性：1、Alignm
30、ent属性 Alignment属性用来设置CheckBox组件上文字相对于方框的位置，Alignment属性值有两个：taLeftJustify（文字在方框左边）、taRightJustify（文字在方框右边，默认值）。2、AllowGrayed属性 当AllowGrayed属性值为True时，复选按钮有三种状态：选中、未选中、部分选中（灰色），当AllowGrayed属性值为False时，复选按钮有两种状态：选中、未选中。3、Checked属性 当Checked属性值为True时，复选按钮为选中状态，当Checked属性值为False时，复选按钮为未选中状态。4、State属性 State属
31、性有三个取值：cbChecked（选中）、cbGrayed（部分选中）、cbUnchecked（未选中）。（2）CheckBox组件的常用事件：复选按钮最常用的事件为OnClick事件，当用户单击复选按钮使之状态发生改变时触发该事件。2023年12月12日星期二DELPHI程序设计基础教程8.4.4 CheckBox组件和GroupBox组件2GroupBox组件 GroupBox组件是通用的分组组件，不仅可以为单选按钮和复选按钮分组，还可以放置其它组件，包括GroupBox组件本身，当一个组件被放置到GroupBox组件中后，GroupBox组件将成为该组件的父类。它最常用的为Caption
32、属性，使用该属性设置组的标题 2023年12月12日星期二DELPHI程序设计基础教程8.4.4 CheckBox组件和GroupBox组件（1）将一个GroupBox组件放到窗体上，将Caption属性设置为“字体复选按钮”；（2）将一个CheckBox组件放到窗体上，将Caption属性设置为“粗体”；（3）双击此复选按钮，输入以下代码：GRoupBox1.Font.Style:=;if CheckBox1.Checked then GroupBox1.Font.Style:=fsBold;if CheckBox2.Checked then GroupBox1.Font.Style:=fs
33、Italic;（4）将另一个CheckBox组件放到窗体上，将Caption属性设置为“斜体”；（5）双击此复选按钮，输入以下代码：if CheckBox2.Checked then GroupBox1.Font.Style:=GroupBox1.Font.Style+fsItalicelse GroupBox1.Font.Style:=GroupBox1.Font.Style-fsItalic;2023年12月12日星期二DELPHI程序设计基础教程8.5 文本对象框组件t8.5.1 Label组件t8.5.2 Edit组件t8.5.3 ListBox组件t8.5.4 ComboBox组件2
34、023年12月12日星期二DELPHI程序设计基础教程8.5.1 Label组件 Label组件主要用来对窗体上的其它组件进行说明，即显示静态文本，一般将其Caption属性设置为说明文字，并放置到被说明的组件旁边 1Label组件的常用属性：（1）Caption属性 Caption属性用来设置Label组件上的显示文字。（2）Font属性 Font属性用来设置Label组件内显示的文字大小、字体和格式等，单击Font属性左侧的“”显示Font属性的子属性，其中Color子属性用来设置文字的颜色，Name子属性用来设置字体（如“黑体”），Size子属性用来设置文字的大小，其取值为Integer
35、类型，Style子属性用来设置文字的样式，如粗体（fsBold）、斜体（fsItalic）、下划线（fsUnderline）和删除线（fsStrikeOut）。（3）AutoSize属性 为了确保程序允许时Label的显示与设计时一样，必须将AutoSize属性值设置为False，使组件的大小不会随着文字的大小自动调整，避免Label组件尺寸发生变化。t 2023年12月12日星期二DELPHI程序设计基础教程8.5.1 Label组件（4）Alignment属性 Alignment属性用来设置Label组件上文字在水平方向上的对齐方式，它有三个取值：taCenter（水平居中）、taLeft
36、Justify（水平居左，默认值）、taRightJustify（水平居右）。（5）Layout属性 Layout属性用来设置Label组件上文字在垂直方向上的对齐方式，它有三个取值：tlTop（垂直居上）、tlCenter（垂直居中）、tlBottom（垂直居下）。2Label组件的常用事件：（1）OnMouseEnter事件 当鼠标移动到标签上时触发该事件。（2）OnMouseLeave事件 当鼠标离开标签时触发该事件。2023年12月12日星期二DELPHI程序设计基础教程8.5.1 Label组件 下例演示当鼠标移到标签上时，标签上的文字变为红色，当鼠标离开标签时，文字还原为黑色，步骤
37、如下：（1）将一个Label组件放置到窗体上；（2）选中“对象检视器”中的“Events”选项卡，选中“OnMouseEnter”事件后会有一个获得焦点的下拉列表框，双击该下拉列表框，进入该Label组件的OnMouseEnter事件中，输入代码：Label1.Font.Color:=clRed;（3）选中“OnMouseLeave”事件后会有一个获得焦点的下拉列表框，双击该下拉列表框，进入该Label组件的OnMouseLeave事件中，输入代码：Label1.Font.Color:=clBlack;2023年12月12日星期二DELPHI程序设计基础教程8.5.2 Edit组件 Edit组
38、件可以显示、编辑单独的一行文本，是常用的组件之一。1Edit组件的常用属性：（1）Text属性 Text属性用来设置Edit组件上的文本内容。是最基本的属性。（2）ReadOnly属性 当ReadOnly属性设置为True时，Edit组件中的文本只能读取，当ReadOnly属性设置为False时，Edit组件中的文本不光可读，还可以编辑。（3）MaxLength属性 MaxLength属性用来设置输入文本的最大长度，默认为0，没有输入限制。（4）PasswordChar属性 PasswordChar属性可以将用户输入的所有字符以同一个字符显示，一般用于密码框的输入。2023年12月12日星期二
39、DELPHI程序设计基础教程8.5.2 Edit组件2Edit组件的常用事件：Edit组件最常用的事件（也是默认事件，双击组件即可进入事件代码）是OnChange，当Edit组件中的文本发生改变时触发该事件。下例综合了Label组件与Edit组件的应用，当在Edit组件中输入文字时，在Label组件中同步显示输入内容，步骤如下：（1）将一个Label组件放置到窗体上；（2）将一个Edit组件放置到窗体上；将其Text属性设置为空，其PasswordChar属性设置为“*”，双击Edit组件，输入如下代码：Label1.Caption:=Edit1.Text;2023年12月12日星期二DELP
40、HI程序设计基础教程8.5.3 ListBox组件 ListBox组件用于显示一系列的列表，用户可以选择、加入、删除或修改其中的项目 1ListBox组件的常用属性：（1）Items属性 该属性用来编辑ListBox组件中的项目。该属性的子属性Count可以获得ListBox组件中存在的项目总数，编写代码时需要遍历列表框中所有选项时会使用此属性。（2）MultiSelect属性 当该属性值为True（默认值）时，一次可以选择多个项目，否则只能选择单项。（3）ExtendedSelect属性 用户在列表中是否能够选择一个区域。该属性只有当MultiSelect属性值为True时起作用，当Exte
41、ndedSelect为True时，用户按住Shift键并单击选项，可以将两个选项及其之间的选项都选中。2023年12月12日星期二DELPHI程序设计基础教程8.5.3 ListBox组件（4）Selected属性 该属性用来判断指定选项是否选中，当Selected属性值为True表明该选项选中。（5）Sorted属性 该属性用来设置列表框中的项是否按照字母排序，默认为不排序（False）。当Sorted属性设置为True时，通过调用Add或Insert所增加的项将自动移到合适的地方。2ListBox组件的常用方法：ListBox组件最常用的方法是Clear，用来清除列表框中的所有选项。202
42、3年12月12日星期二DELPHI程序设计基础教程8.5.3 ListBox组件（1）将一个ListBox组件放置到窗体左边，如图8-13所示；（2）将一个ListBox组件放置到窗体右边，将其Sorted属性值设置为True；（3）在窗体上放置三个Button组件，分别将其Caption属性设置为：添加、移动、清除；（4）双击“添加”按钮，输入代码：ListBox1.Items.Add(aa);ListBox1.Items.Add(ee);ListBox1.Items.Add(cc);ListBox2.Items.Add(dd);ListBox2.Items.Add(bb);（5）运行程序，
43、点击“添加按钮”2023年12月12日星期二DELPHI程序设计基础教程8.5.3 ListBox组件（6）双击“移动”按钮，让该按钮的OnClick事件代码如下：procedure TForm1.Button2Click(Sender:TObject);var i:integer;begin For i:=0 to ListBox1.Items.Count-1 do /从上到下依次遍历第一个列表框选项 if ListBox1.Selectedi then /Selected属性值为True表明选项被选中 begin ListBox2.Items.Add(ListBox1.Items.Stri
44、ngsi);end;end;（7）双击“添加”按钮，输入代码：ListBox1.Clear;ListBox2.Clear;2023年12月12日星期二DELPHI程序设计基础教程8.5.4 ComboBox组件 ComBox组件组合了一个编辑框和一个可滚动的列表，也称为下拉列表框组件，用户可以从列表中选择项目，也可以直接在编辑框中输入文字。组合框可以看作是一个折叠起来的列表框，与列表框相比，组合框更能节省屏幕上的空间，因为组合框在同一时间只显示其中的一项。1ComboBox组件的常用属性：（1）Text属性Text属性用来设置编辑框中的文本。（2）DropDownCount属性该属性用来设置列
45、表框中显示条目的个数，默认值为8，当列表框中的条目大于DropDownCount时，列表框的右侧将自动出现一个垂直方向上的滚动条，当列表框中的条目小于DropDownCount时，列表框的高度会自动调整为实际条目数。（3）Items属性该属性用来编辑ComboBox组件中的项目。2023年12月12日星期二DELPHI程序设计基础教程8.5.4 ComboBox组件（4）Sorted属性 该属性用来设置列表框中的项是否按照字母排序，默认为不排序（False）。当Sorted属性设置为True时，通过调用Add或Insert所增加的项将自动移到合适的地方。（5）ItemIndex属性 该属性能够
46、返回组合框中被选中项的序号，在编写代码中经常使用此属性。2ComboBox组件的常用事件：（1）OnDropDown事件 当用户下拉组合框的时候触发OnDropDown事件。（2）OnChange事件 当用户从组合框的下拉列表中选择了一项或者直接在编辑框中输入了字符触发OnChange事件（默认事件，双击ComboBox组件时自动进入OnChange事件代码）。2023年12月12日星期二DELPHI程序设计基础教程8.5.4 ComboBox组件（1）将一个ComBoBox组件放置到窗体上，选中对象检视器中Items属性，单击Items属性右边的“”按钮，打开“String List Edi
47、tor”，输入第一行文字“aaaa”，第二行文字“bbbb”，第三行文字“cccc”，记得一定要换行；（2）将一个Label组件放置到窗体上；（3）在对象检视器中Events选项卡中点击事件OnDropDown，出现一个带有焦点的列表框，双击列表框，键入代码：Label1.Caption:=点击了ComBoBox组件；（4）运行程序，当点击下拉列表框中的小箭头时标签会显示“点击了ComBoBox组件”；（5）双击ComBoBox组件，键入代码：Label1.Caption:=改变了ComBoBox组件的选项；（6）运行程序，当改变下拉列表框中的选项时标签会显示“改变了ComBoBox组件的选项
48、”。2023年12月12日星期二DELPHI程序设计基础教程8.6 菜单、工具栏和状态栏组件1主菜单 应用程序的菜单有两种，即主菜单（MainMenu）和弹出式菜单（PopupMenu）。主菜单是一般的Windows程序所必备的组件，它显示在固定的位置，一般用键盘或鼠标左键来激活相应的事件，弹出式菜单一般是不可见的，一般用键盘或鼠标右键来激活相应的事件，出现的位置由当前激活时鼠标的位置来决定。（1）AutoHotkeys属性 当AutoHotkeys属性值为maAutomatic（默认值）时，为每一个菜单项自动设置热键，当AutoHotkeys属性值为maManual时，手动为菜单项添加热键。
49、热键一般用来打开顶级菜单（注意，是打开而不是执行菜单），如Word文档中“文件、编辑、视图、插入、格式、工具”为顶级菜单，顶级菜单只需打开而不需执行。手动设置热键在输入某菜单项的Caption属性时在某个字母的前面加一个“&”符号即可，如将某顶级菜单的Caption属性设置为“文件（&File）”，则在运行中显示的文字为“文件（File）”，使用“AltF”键可以打开“文件”菜单。（2）ShortCut属性 在菜单设计窗口中，可以通过此属性为菜单项设置快捷键，利用快捷键可以快速执行菜单功能。（3）Image属性 可以为菜单添加图标。2023年12月12日星期二DELPHI程序设计基础教程8.6
50、 菜单、工具栏和状态栏组件 工具栏中存放了许多经常使用的命令，这样用户在选择要执行的命令时，不必在菜单中寻找，大大方便的用户的操作。2023年12月12日星期二DELPHI程序设计基础教程8.6 菜单、工具栏和状态栏组件 状态栏位于窗口的最下面，通常显示一些提示信息，状态栏可以由一个或多个面板组成 2023年12月12日星期二DELPHI程序设计基础教程8.7 对话框类组件 对话框组件的应用，使用户与程序能够很好的交互，通过使用通用对话框库中提供的标准对话框，用户可以简单的实现打开和保存文件、选择颜色和字体等操作，Delphi使用组件对标准对话框进行了封装，所有的对话框组件均是不可视组件，使用
