Go homepage(回首页)
Upload pictures (上传图片)
Write articles (发文字帖)

The author:(作者)aaa
published in(发表于) 2014/7/19 0:10:53
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，当输入的文字到了多行文本编辑器的右边界时，文字自动换行。当编辑器的水平尺寸改变时，编辑器中的文字也将自动调整。

赞