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当输入文字到了多行文本编辑器的右边界时,文字自动换行下面介绍程序中TMemo组件常用的属性。

(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,当输入的文字到了多行文本编辑器的右边界时,文字自动换行。当编辑器的水平尺寸改变时,编辑器中的文字也将自动调整。

相关阅读 >>

Delphi 使用twebbrowser组件保存网页为html和mht文件

Delphi stringgrid行列的增加和删除

Delphi 同时激活两个窗体

Delphi 获取随机汉字的函数

Delphi 为richedit设置行号

Delphi文件监视主单元文件

Delphi开发firemonkey应用程序时无法打开窗体的解决

Delphi ifdef 另类用法

Delphi 根据ip获取局域网mac

Delphi在目录中搜索文件

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...