delphi多行编辑框组件（TMemo）使用实例|方法

多行编辑框组件（TMemo）
TMemo 组件可以显示、编辑多行文本，是一个标准的Windows 多行编辑组件。对一些比较多的文本内容可以利用TMemo 组件来显示、编辑。
1．TMemo 组件的典型用法
TMemo 组件主要用于输入备注型的字符串，它不能进行文字格式的设置。利用TMemo 组件Lines属性的LoadFromFile 方法打开文本文件，对文本文件进行编辑。编辑完成后再利用Lines 属性的SaveToFile 方法将编辑后的文本进行保存。
例如下面的代码，在拥有一个Memo1 组件和两个Button 组件的窗体上，实现了文本文件的打开和保存功能：
procedure TForm1.OpenBtnClick(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(’C:a.txt’); //打开C:a.txt 文件
end;
procedure TForm1.SaveBtnClick(Sender: TObject);
begin
Memo1.Lines.SaveToFile(’C:a.txt’); //保存为C:a.txt 文件
end;
TMemo 组件主要是利用Lines 属性进行控制，它的取值类型为TStringList 属性。
2．TMemo 组件的重要属性
·Lines 可以访问多行文本中的每一行
·ScrollBars 此属性用于设置是否要加上滚动条
·WantReturn 用于解决按下“enter”键是用于换行还是作用于按钮
·WantTabs 每按一次Tab 键，将使光标在多行文本编辑器中移动一个制表位
·WordWrap 当输入文字到了多行文本编辑器的右边界时，文字自动换行
（1）Lines 属性
单击Lines 属性后边的“...”按钮打开编辑框，可以对Memo 组件的内容进行编辑，通过此属性可以对Memo 组件内的每一行进行访问。例如取出Memo1 组件第2 行的内容显示为Form1 的标题：
Form1.Caption:=Memo1.Lines.Strings[1];
利用Line 属性的Add 方法和Delete 方法可以对Memo 的内容进行动态地添加和删除。如下代码的功能是向Memo1 组件中添加一行内容：
Memo1.Lines.Add(’在Memo 的末尾添加一行内容’);
删除Memo 的第1 行内容可以这样写：
Memo1.Lines.Delete(0);
（2）ScrollBars 属性
ScrollBars 属性用于设置是否要加上滚动条（因为需要输入多行文字）。本属性设定了以下4 个用户可选值。
• ssNone：不加上滚动条。
• ssHorizontal：加上水平滚动条。
• ssVertical：加上垂直滚动条。
• ssBoth：水平和垂直滚动条都加上。
（3）WantReturn 属性
假如Form 上有一个按钮，并且按钮的Default 属性设为True，当用户按下“Enter”键时即相当于单击这个按钮，因为这个按钮是默认按钮。这就带来一个问题—在多行文本编辑器中输入文字时按下Enter 键，究竟是换行还是作用于按钮呢？WantReturns 属性用于解决这个问题。如果WantReturn设为True，按下“Enter”键就是换行。如果WantReturns 设为False，按下Enter 键就不是换行而是作用于按钮，这时候要换行必须按“Ctrl＋Enter”组合键。
（4）WantTabs 属性
如果WantTabs 属性设为True，每按一次“Tab”键，将使光标在多行文本编辑器中移动一个制表位。如果WantTabs 属性设为False，按下“Tab”键使输入焦点在同一个Form 的组件之间依次切换，这时候，要在多行文本编辑器中移动一个制表位，必须按“Ctrl+Tab”组合键。
（5）WordWrap 属性
如果此属性设为True，当输入的文字到了多行文本编辑器的右边界时，文字自动换行。当编辑器的水平尺寸改变时，编辑器中的文字也将自动调整。