delphi中怎么实现Memo组件中的文本随着窗体的宽度改变而自动换行
5个回答
展开全部
1. 使用剪贴板(Clipboard)
我们可以使用CutToClipboard、CopyToClipboard和PastFromClipboar这三种方法,实现将Memo组件中被选择文本剪切或复制到剪贴板上,以及将剪切板上的内容粘贴到Memo组件中。
将Memo中的选中文本剪切到剪贴板的语句如下:
if Memo1.SelLength>0 then
2. 文本的添加
利用Lines属性,可以增加、删除一行文本,也可以移动一行文本。下面的代码将文本添加到Memo中的最后一行:
Memo1.Lines.Add('将文本添加到Memo中’);
3. 文件的保存和装载
我们可以将Memo组件中的文本保存成文本文件,也可以将文本文件装载到Memo中。这须要配合使用SaveDialog组件和OpenDialog组件。将Memo中的文本保存为文件的语句为:
If SaveDialog1.Execute then //打开保存对话框
Memo1.Lines.SaveToFile(SaveDialog1.FileName); //保存为文件
我们可以使用CutToClipboard、CopyToClipboard和PastFromClipboar这三种方法,实现将Memo组件中被选择文本剪切或复制到剪贴板上,以及将剪切板上的内容粘贴到Memo组件中。
将Memo中的选中文本剪切到剪贴板的语句如下:
if Memo1.SelLength>0 then
2. 文本的添加
利用Lines属性,可以增加、删除一行文本,也可以移动一行文本。下面的代码将文本添加到Memo中的最后一行:
Memo1.Lines.Add('将文本添加到Memo中’);
3. 文件的保存和装载
我们可以将Memo组件中的文本保存成文本文件,也可以将文本文件装载到Memo中。这须要配合使用SaveDialog组件和OpenDialog组件。将Memo中的文本保存为文件的语句为:
If SaveDialog1.Execute then //打开保存对话框
Memo1.Lines.SaveToFile(SaveDialog1.FileName); //保存为文件
展开全部
memo中WordWrap属性置True.就实现自动换行了。最好把ScrollBars置ssVertical。
追问
这样不行!我是要打开一个文件,然后让文字随着窗体宽度变化而自动换行,就是跟windows的记事本一样!
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
设置memo1.align 为alclient就行
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
memo控件的WordWrap置成false,align置成alclient
追问
这样不行!我是要打开一个文件,然后让文字随着窗体宽度变化而自动换行,就是跟windows的记事本一样!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
能不能截个图片,测试了一下,下面提供的答案确实是可以的。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询