Delphi数据库开发完美教程 第4章 创建应用程序界面

AutoSelect属性：设置当Edit组件获得输入焦点时， 是否自动选中编辑框中的所有文本。如果这个属性设为 True，当输入焦点移进编辑框时，编辑框的文字自动加 亮（表示被全部选择），此时按下任意一个键，编辑框 原有的文字将被刚键入的字符代替。 AutoSize属性：确定编辑框的高度是否随文本的高度 的改变而改变。如果这个属性设为True，编辑框的高度 自动适应输入文字的字体的高度（编辑框的BorderStyle 属性为bsSingle时才有效）。 BorderStyle属性：设置编辑框的边框类型，默认是 bsSingle，表示边框是单细线。如果设为bsNone，表 示没有边框。这个属性与Ctrl3D属性配合使用，可以产 生不同的视觉效果。 HideSelection属性：如果这个属性设为True，当输 入焦点从编辑框移走时，编辑框内原先选择的内容不再 保持选择状态。
PasteFormClipboard 把剪贴板中的内容粘贴到编辑框中 SelectAll SetSelTextBuf Undo 选择编辑框中的全部内容 用Buffer参数指定的内容替换编辑框中选择的内容 撤消用户刚刚在编辑框中所做的修改
下面介绍编辑框组件的一些常用事件。 OnChange事件：当编辑框中的内容发生改 变时，将触发这个事件。虽然在Edit组件中输入 字符会被触发该事件，但是要在编辑框中实现过 滤字符的功能，最好处理编辑框的OnKeyPress 事件。可以利用这一事件在输入的时候做一些其 他的事，如改变标签的显示字符。 OnDblClick事件：当编辑框被双击时触发此 事件。 OnKeyPress事件：当用户在键盘上按下单个 字符时触发这个事件。此事件经常用来过滤用户 输入的字符。SLMIS系统有许多文本框都将非数 字字符过滤掉了，程序如下：
在Delphi中，编辑组件包括以下一些组件：Edit组 件，它可以显示和编辑单独的一行文本，Edit组件位于 组件面板的【Standarቤተ መጻሕፍቲ ባይዱ】页中；Memo组件，它可以显 示 、 编 辑 多 行 文 本 ， Memo 组 件 也 位 于 组 件 面 板 的 【Standard】页中；MaskEdit组件，该组件可以显示、 编辑具有指定格式的文本，如6位数字的邮政编码、固 定格式的电话号码等，这个组件位于【Additional】页 上；RichEdit组件，这个组件可以显示、编辑具有丰富 文本格式（RichTextFormat）的文件，如.rtf文件等， 它位于【Win32】页上。 下面首先介绍Edit组件。它的作用是让用户输入单行 文字，用户在组件中输入字符时，Text属性总是保持为 最新内容，并将触发OnChange事件。这里介绍的是 TCustomEdit的属性、事件和方法（TEdit没有自己的属 性、事件和方法）。

4.2 窗体基本控件及其应用
除窗体之外，还有种类繁多、性能各异的其 它组件，它们都是Delphi应用程序设计和实现 的基本单元。学习Delphi程序设计，首先要学 会常用组件的使用方法。在窗体中可以添加各 种对象，进行窗体的界面设计。向窗体中添加 对象的方法是，首先单击相应组件板的控件图 标，接着在窗体的适当位置按下鼠标左键并拖 动鼠标，即可画出相应的对象。
在Delphi中，组件是可视化编程的基础，程序员用它来设 计用户界面，并且给予应用程序一些非可视化功能。对于两 种 不 同 类 型 的 Delphi 开 发 者 — — 应 用 程 序 开 发 者 （Application Developer）和可视化组件编写者，组件有不 同的含义。对于应用程序开发者来说，组件就是从组件面板 上得到的一个实实在在的事物，一般被放在窗口上。应用程 序开发者可以修改其属性并且建立事件的处理过程，从而得 到组件的外观和内在的作用。这个过程的完成，是应用程序 开发者工作的核心和主要工作内容。对于组件编写者来说， 组件只是对象PASCAL语言中的对象，这些对象可以封装系 统提供的行为元素（包括Windows的标准组件），一个组件 的代码构成了该组件的全部行为。 由于Delphi提供了丰富且功能强大的组件，程序员就可以 集中精力去创建应用程序，而不必从头开始去创建GUI、数 据库功能和程序之间的通信。程序员更注重的是程序整体的 规划和设计，而不再是怎样编写一句句的重复和冗长的代 码。一切都是这么简单，大体的框架总是已经搭好了，紧接 着的任务就是根据不同的需要把它们组装起来。如图4-1所 示的是Delphi的组件面板。
如果这个属性设为True，加速字符以字母加下划线的形 式 显 示 ， 如 果 设 为 False， 将 不 显 示 加 速 字 符 ， FocusControl属性也无效。 Transparent属性：一般情况下，标签显示在组件的 旁边，但有时候需要把标签加在组件上。例如，要在一 个地图上标注某个地名，这时候可以把Transparent属 性设为True，这样，标签就是透明的，不会盖住地图上 的内容。 2． 编辑框 在应用程序的界面上，往往需要用户输入一些文字， 或者以一定的格式将文本显示给用户时，可通过编辑框 组件来实现。编辑框是个相当灵活的输入工具，可以输 入单行文本，也可以输入多行文本，还具有根据控件的 大小自动换行以及添加基本格式的功能。
方 法 Clear ClearSelection GetTextLength ClearUndo CopyToClipboard CutToClipboard GetSelTextBuf
说
明
清空编辑框中的文本内容 删除编辑框中被选中的文本内容 返回编辑框中的文本字符串的长度 把Undo缓冲区中的内容清掉，这样就不能撤消刚刚所做的修改 把编辑框中选择的内容复制到剪贴板中 把编辑框中选择的内容剪切到剪贴板中 把编辑框中选择的内容复制到第一个参数指定的缓冲区中，并返回 复制的字符数
Alinment属性：设置标签上的文字在水平方向上的对 齐 方 式 ， 可 以 设 为 taLeftJustify（ 居 左 ） 、 taRighJustify（居右）和bcCenter（居中）。 AutoSie属性：设置标签是否自动随文本的变化而改 变大小。如果这个属性设为True，标签的尺寸随着文 字的尺寸和字体自动调整。如果设为False，标签的尺 寸不变，如果输入的文字太大将被剪裁。 FocusControl属性：设置按下热键时，获得焦点的控 件名，用于指定关联的组件。TLabel的这种高级用法 通常用在“Open”、“Save”等对话框中。 Layout属性：设置标签上的文字在垂直方向上的对齐 方式，可以设为tlTop（靠上）、tlCenter（居中）和 tlBotton（靠下）3个值。 ShowAccelChar属性：决定是否将&作为热键字符的 标记。
ReadOnly属性：如果这个属性设为True，表 示编辑框是只读的，用户不能修改编辑框的内 容。不过这个属性往往给人错觉，因为即使把 ReadOnly属性设为True，仍然可以在编辑框中 移动光标，好像能够编辑一样。因此，建议把编 辑框的Enable属性设为False。 编 辑 框 的 方 法 在 实 际 的 编 程 过 程 中 经常用 到，表4-1所示编辑框的常用方法。 表4-1 编辑框的常用方法

4.1 窗体与组件
在Windows环境中，人机交互主要是在一些窗体和 对话框中进行的。在Delphi中，窗体指的就是窗口和 对话框，进行可视化程序设计一般就是从窗体开始并 在窗体中完成的。窗体与组件的关系非常密切。窗体 就像一个可以放置东西的桌面，可以根据任务的需要 在窗体上放置各种各样的组件。 从程序设计的角度来看，一个窗体对应一个存放源 程序的单元文件。其中窗体展示的是程序运行时的操 作界面，而单元文件定义了窗体中所有组件的对象 （包括属性、事件和方法）以及对它们的操作。
MaxLength属性：设置可输入文字的长度，设 为 0 表 示 无 限 制 。 即 使 MaxLength 属 性 设 得 很 小，编辑框中原有的内容也不会被裁断。 Modified属性：如果自上次Modified属性被设 为False以来编辑框的文字发生了变化，这个属 性将返回True。 Passwordchar属性：默认为#0，表示用户键 入什么字符编辑框显示什么字符，如果这个属性 设为其他字符，用户键入的字符将转换成设定的 符号，如果编辑框用于键入口令时，最好把 Passwordchar属性设为*，这样别人就看不到所 键入的字符。SLMIS系统用户登录口令文本框的 Passwordchar属性设为了*。
图4-1 Delphi的组件面板 4.2.1 标签和编辑框 在开发基于对话框应用程序的时候，标签和编 辑框组件是利用相当广泛的组件。标签和编辑框 的使用是任何一个程序员必须掌握的知识，下面 将介绍标签和编辑框的使用方法
1． Label标签 标签是Delphi中最简单的组件，用于显示字符串，通 常显示的是文字说明信息。在Windows程序设计过程 中 ， 标 签 （ Label） 是 常 用 的 组 件 之 一 ， 它 是 从 TCustomLabel 继 承 下 来 的 ， 而 TCustomLabel 又 是 从 TGraphicControl继承下来的。 由于Label是一个典型的非窗口组件，它没有窗口句 柄，也不会有输入焦点，但可以把它与标注的组件关 联，以后，当用户按下这个标签的加速字符时（按鼠标 无效），输入焦点将自动移到关联的组件上。也就是在 标签中设置热键，在Caption属性值中输入含有“&”的字 符串，当用户使用“Alt+关键字母”时，将自动选中它所 指向的对象。方法是设置Label部件的FocusControl属 性，选择与它关联对象的对象名。 标签的属性很多，下面介绍一些常用属性。
从视觉的角度来看，窗体可以包含很多组件的对象。 但这并不是说窗体类包含了组件类型或者说窗体是组件 的父类。事实上窗体和组件都是从TComponent类继承 下来的，它们都有公共的TObject祖先类。窗体类是从 TComponent类派生的TForm类，所以可以将窗体看成 一个特殊的组件，如Panel组件。Delphi中的所有组件 都被封装在可视化组件库VCL中，集成开发环境中的组 件面板就是VCL的实现。 在窗体中进行可视化程序设计时要涉及到VCL组件面 板中的组件和在该窗体对应的单元文件上编写代码，这 种关系可通过第2章的图2-1来表示：在组件面板上选择 需要的组件放在窗体Form上；在对象查看器中设置该 组件对象的属性；窗体的单元文件会自动生成窗体中的 组件对象的信息以及在单元文件中编写程序处理代码。