《Delphi7应用教程》第7章 常用组件的使用

第7章常用组件的使用 本章要点: 区掌握文本类组件的使用方法 区掌握按钮类组件的使用方法 区掌握列表类组件的使用方法 区掌握时钟组件和通用对话框组件的使 用方法 区掌握菜单、工具栏和状态栏的设计方 法

第7章 常用组件的使用 本章要点：  掌握文本类组件的使用方法  掌握按钮类组件的使用方法  掌握列表类组件的使用方法  掌握时钟组件和通用对话框组件的使 用方法  掌握菜单、工具栏和状态栏的设计方 法

7.1循序渐进学理论 711文本类组件的使用 1. TLabel组件 (1) Caption属性:即标题属性,这是 TLabel组件 最重要的属性,用来设置该组件中显示的文本。 (2) Autosize属性:该属性用来决定标签是否自 动随文本的长短而改变大小。 (3) WordWrap属性:该属性用来决定标签的文本 是否可以折行显示 (4) Alignment属性:该属性用来决定标签中显 示的文本的对齐方式

7.1 循序渐进学理论 7.1.1 文本类组件的使用 1．TLabel组件 （1）Caption属性：即标题属性，这是TLabel组件 最重要的属性，用来设置该组件中显示的文本。 （2）AutoSize属性：该属性用来决定标签是否自 动随文本的长短而改变大小。 （3）WordWrap属性：该属性用来决定标签的文本 是否可以折行显示。 （4）Alignment属性：该属性用来决定标签中显 示的文本的对齐方式

(5) Enabled属性:该属性用来决定该组件是否能 即响应用户的操作。 (6) Visible属性:该属性用来决定在程序运行时 组件是否可见 (7)Font属性:该属性用来设置标签组件中显示 的文本字体,是一个对象属性。 冷Y2.TEd组件 (1)TEdt组件的常用属性 ③Text属性:该属性代表显示在编辑框中的文本。 ③ ReadOnly属性:该属性用来决定编辑框中显示 的文本是否可以修改。 ③ PasswordChar属性:该属性用来决定用户输入 的字符是原样显示还是以密码方式显示

（5）Enabled属性：该属性用来决定该组件是否能 即响应用户的操作。 （6）Visible属性：该属性用来决定在程序运行时 组件是否可见 。 （7）Font属性：该属性用来设置标签组件中显示 的文本字体，是一个对象属性 。 2．TEdit组件 （1）TEdit组件的常用属性  Text属性：该属性代表显示在编辑框中的文本。  ReadOnly属性：该属性用来决定编辑框中显示 的文本是否可以修改。  PasswordChar属性：该属性用来决定用户输入 的字符是原样显示还是以密码方式显示

③ Char Case属性:该属性用来控制编辑框中文本的大 小写 ③ Auto Select属性:该属性用来决定当编辑框获得焦 点时,是否自动选定显示的文本。 ③ BorderStyle属性:该属性用来决定编辑框组件是 否有边框。 ③ Canundo属性:该属性用来指出对编辑框中显示的 内容改变是否能够撤消。 ③ Hideselection属性:该属性用来决定当编辑框失 去焦点时,选中的文本是否还是以选中的方式提供视 觉提示。 ③ MaxLength属性:该属性用来决定编辑框中最多能 够输入或显示的字符个数

 CharCase属性：该属性用来控制编辑框中文本的大 小写 。  AutoSelect属性：该属性用来决定当编辑框获得焦 点时，是否自动选定显示的文本。  BorderStyle属性：该属性用来决定编辑框组件是 否有边框 。  CanUndo属性：该属性用来指出对编辑框中显示的 内容改变是否能够撤消。  HideSelection属性：该属性用来决定当编辑框失 去焦点时，选中的文本是否还是以选中的方式提供视 觉提示。  MaxLength属性：该属性用来决定编辑框中最多能 够输入或显示的字符个数

③ Modified属性:该属性是一个运行属性,用来指示 编辑框中的内容是否发生了改变 ③ Selstart属性:该属性也是一个运行属性,用来设 置或指示选中文本的第一个字符的位置,文本框的第 个字符位置为0 ③ Seltext属性:该属性也是一个运行属性,用来 设置或指示选中的文本 ③ Sellength属性:该属性也是一个运行属性,用 来设置或指示选中文本的长度 (2) TEdit组件的常用方法 SetFocus方法:该方法用于为编辑框设置焦点, 无参数

 Modified属性：该属性是一个运行属性，用来指示 编辑框中的内容是否发生了改变 。  SelStart属性：该属性也是一个运行属性，用来设 置或指示选中文本的第一个字符的位置，文本框的第 一个字符位置为0。  SelText属性：该属性也是一个运行属性，用来 设置或指示选中的文本。  SelLength属性：该属性也是一个运行属性，用 来设置或指示选中文本的长度。 （2）TEdit组件的常用方法  SetFocus方法：该方法用于为编辑框设置焦点， 无参数

③ Clear方法:该方法用来清除编辑框中的所有文 本,无参数。 ③ Clear Selection方法:该方法用来清除编辑框中选 中的文本,无参数。 ③Undo方法:该方法用来撤消在编辑框中最近所 做的编辑操作。 ③ ClearUndo方法:该方法用来清除“撤消”缓冲 区,从而不能对以前的操作做撤消操作,该方法无参 数 Selecta1方法:该方法用来选中编辑框中的所 有文本。 3 Copy toclipboard方法:该方法用来把选中的文 本复制到剪贴板上,相当于复制操作 ③ CutToClipboard方法:该方法用来把选中的文 本移动到剪贴板上,相当于剪切操作

 Clear方法：该方法用来清除编辑框中的所有文 本，无参数。  ClearSelection方法：该方法用来清除编辑框中选 中的文本，无参数。  Undo方法：该方法用来撤消在编辑框中最近所 做的编辑操作。  ClearUndo方法：该方法用来清除“撤消”缓冲 区，从而不能对以前的操作做撤消操作，该方法无参 数。  SelectAll方法：该方法用来选中编辑框中的所 有文本。  CopyToClipboard方法：该方法用来把选中的文 本复制到剪贴板上，相当于复制操作。  CutToClipboard方法：该方法用来把选中的文 本移动到剪贴板上，相当于剪切操作

Paste FromClipboard方法:该方法用来把剪切板上 的文本粘贴到插入点处,相当于粘贴操作 (3)TEd组件的常用事件 e On Change事件:当Text属性值发生改变时将触发 该事件 ③ OnKeypress事件:当用户按下键盘上一个 ASCII 码键时将触发该事件。 0 oNkeydown事件:用户按下键盘上的任何键时都 会触发该事件 ③0 nKeyUp事件:当用户按下任何一个键后再松开 时将触发该事件

 PasteFromClipboard方法：该方法用来把剪切板上 的文本粘贴到插入点处，相当于粘贴操作。 （3）TEdit组件的常用事件  OnChange事件：当Text属性值发生改变时将触发 该事件。  OnKeyPress事件：当用户按下键盘上一个ASCII 码键时将触发该事件。  OnKeyDown事件：用户按下键盘上的任何键时都 会触发该事件。  OnKeyUp事件：当用户按下任何一个键后再松开 时将触发该事件

【例7-1】设计一个简易账号和密码的检 验程序。对输入的账号和密码规定如下:(1) 账号为不超过6位的数字,密码为4位字符, 在本题中,账号假设为123456,密码假定为 Pass。(2)输入密码时,在屏幕上不显示输 入的字符,而用“*”代替。(3)当输入不 正确,如账号为非数字字符或账号和密码输 入不正确时,将显示出消息框进行提示。程 序的设计界面如图7-1所示,程序的运行界面 如图7-2所示

【例7-1】 设计一个简易账号和密码的检 验程序。对输入的账号和密码规定如下：（1） 账号为不超过6位的数字，密码为4位字符， 在本题中，账号假设为123456，密码假定为 Pass。（2）输入密码时，在屏幕上不显示输 入的字符，而用“*”代替。（3）当输入不 正确，如账号为非数字字符或账号和密码输 入不正确时，将显示出消息框进行提示。程 序的设计界面如图7-1所示，程序的运行界面 如图7-2所示

7%号与密码人回囟 账号: 密码 图7-1程序设计界面 影号与密吗偷入回囟 账号: 123456 密码: 图7-2程序运行界面

图7-1 程序设计界面 图7-2 程序运行界面

3. TMemo组件 (1) TMemo组件的常用属性 s ScrollBars属性:该属性用来设置备注框是否出 现滚动条以及滚动条的种类。 ③ Lines属性:按行处理文本 ③ Wordwrap属性:该属性用来决定当输入的文本 到达右边界时是否插入软回车,以便换到下一行再输 入 类A(2)TMem组件的常用方法 Add方法:该方法用来向字符串列表的尾部添 加一个字符串。其语法格式如下: function Add(const S: string) Integer virtual

3．TMemo组件 （1）TMemo组件的常用属性  ScrollBars属性：该属性用来设置备注框是否出 现滚动条以及滚动条的种类。  Lines属性：按行处理文本。  WordWrap属性：该属性用来决定当输入的文本 到达右边界时是否插入软回车，以便换到下一行再输 入。 （2）TMemo组件的常用方法  Add方法：该方法用来向字符串列表的尾部添 加一个字符串。其语法格式如下： function Add(const S: string): Integer; virtual;