Delphi6关于QReport中的自动换行显示 ( 积分: 20 )

怎么样判断QRMemo中显示到未尾后自动换到下一行显示!!!!急~~~希望能给个具体的实例参考一下~~~~先谢谢了~~~~~

問題問的不清楚，你目的是想做什麼？

就是我用QRMemo来显示数据库里的记录呀,由于记录的长度太长,一行显示不下,所以要怎么样才能使自动换行显示,我设置了AutoStretch:=true,wordwrap:=true,AutoSize:=false但都是还没效

先引用別人的答案：
QRMemo1.autosize := false;
QRMemo1.autostrech := true;
QRMemo1.wordwrap := true;
然后要在折行的地方加上空格，或者加上回车即可。
我沒太理解最後一句話，作者是說這只適合記錄來自數據庫中的情況。
如果你不賺麻煩，可以參考我的以下方法，適合各種情況，測試通過，先加入StdCtrls單元：
在BeforPrint中
var
M: TMemo;
i: integer;
str: string;
begin
M := TMemo.Create(nil);
try
with Mdo
begin

Parent := 窗體名;
Visible := false;
lines.text := 長字符串記錄或自定義文本;
width := 要顯示多長;
(自定)
for i := 0 to lines.Count -1do
begin
str := str + Lines.Strings;
if i < lines.Count-1 then
str := str + #13;
end;
QRMemo1.lines.Text := str;
QRmemo1.Height := QRMemo1.Height*QRMemo1.lines.Count;
finally
free;
end;
end;
end;

建議QRRichText可以滿足你的要求

先给分了~~~~~~~~~~~有没有简单点的方法?你上面说的那个方法我看了,不是很懂

QRRichText,如果有特殊符号,会报异常