2.输入显示组件

2.1 Edit组件

编辑框 Edit 组件可用于输入文本，也可以显示文本。主要属性如下：

2.2 Label组件

标签 Label 组件用于输出文本，主要属性如下：

示例：利用标签设计一个文字的投影效果，界面如下：

界面元素属性设置如下：

程序设计：

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label2.Left := Label1.Left + 6;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Label2.Left := Label1.Left - 6;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label2.Top := Label1.Top - 3;
  Label2.Left := Label1.Left;
end;

2.3 Memo组件

备注框 Memo 组件常用于输出多行文本。TEdit类所具有的属性、事件和方法在TMemo类中都有，为了处理多行文本，TMemo类增加了一些新的属性，如下表：

示例：在编辑框中输入文本，单击添加按钮后将编辑框中的文本输入到Memo组件中。如下图：

代码如下：

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text <> '' then
  begin
    Memo1.Lines.Add(Edit1.Text);
    Edit1.Text := '';
    Edit1.SetFocus;
  end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  Edit1.SetFocus;
end;

2.4 MaskEdit组件

MaskEdit组件是格式化编辑框，可以限制用户的输入。TEdit类所具有的属性、事件和方法在TMaskEdit类中都有，TMaskEdit类增加的一些常用属性：

设置掩码字符串：

首先在窗体上将MaskEdit选中，在对象查看器（Object Inspector）中找到EditMask属性，双击它，弹出一个如下图所示的对话框。

对话框左上角的Input Mask编辑框用于输入掩码格式。

掩码格式可以分为三部分，每个部分之间用分号“；”分开，第一部分是掩码字符串；第二部分是是否将掩码中的字符串作为数据的一部分，0-表示不作为数据，1-表示作为数据的一部分；第三部分是在掩码中用来代表未输入数据的字符。

掩码字符表：

注：

1.用于控制中文的掩码字符必须有两个，如LL或cc等，因为一个汉字占两个字符。

2.EditText和Text都可以读取数据，当掩码字符串中第二部分为1时，EditText和Text的值是相同的；当掩码字符串中第二部分为0时，Text的值不包含掩码字符串自动显示的字符，而只包含用户输入的字符。

3.如果要返回带格式的文本，只能用EditText，要是检查这个文本是否为空那就要用Text。

举例： 电话号码的掩码： !\(9999\)999999999;l;_、日期的掩码：!0000/99/99;l;_，其中第三部分的_是显示时空位的表示，可用其他字符替代。
再如：要输入一个汽车牌号如：CA-300019。该数据前两位为字母且为大写，第三位为一个系统分隔符号，后６位为数字。可以这样设计掩码格式：!>LL/000000;1;_，掩码的第二部分取为１表示系统分隔符'-'也将作为数据保存。第三部分的“_”表示在掩码编辑框中为空时，用“_”来表示空位。我们也可以用空格来标识空位。又如一个邮编如:PO-100083，其中PO表示邮政，是每个邮政编码中都有的前缀，可以这样设计掩码格式：!PO/000000;1;_ 

示例：车辆登记数据录入，运行效果如下：

在界面中，组件及主要属性设置如下：

程序设计代码如下：

// “添加”按钮事件处理
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add('车牌号：' + MaskEdit1.EditText);
  Memo1.Lines.Add('车主姓名：' + Edit1.Text);
  Memo1.Lines.Add('手机号码：' + MaskEdit2.EditText);
  Memo1.Lines.Add('登记日期：' + MaskEdit3.EditText);
end;

// “关闭”按钮事件处理
procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;

// “下一个”按钮事件处理
procedure TForm1.Button3Click(Sender: TObject);
begin
  MaskEdit1.Text:= '';
  Edit1.Text := '';
  MaskEdit2.Text := '';
  MaskEdit3.Text := '';
end;