Question

delphi中怎么实现Memo组件中的文本随着窗体的宽度改变而自动换行

Answer 1

　　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);　　//保存为文件

Answer 2

memo中WordWrap属性置True.就实现自动换行了。最好把ScrollBars置ssVertical。

追问

这样不行！我是要打开一个文件，然后让文字随着窗体宽度变化而自动换行，就是跟windows的记事本一样！

Answer 3

设置memo1.align 为alclient就行

Answer 4

memo控件的WordWrap置成false,align置成alclient

追问

这样不行！我是要打开一个文件，然后让文字随着窗体宽度变化而自动换行，就是跟windows的记事本一样！

Answer 5

能不能截个图片，测试了一下，下面提供的答案确实是可以的。