QuickReport中的QRmemo中文字如何自动换行?

Question

主要是哪几个属性要设?

Answer 1

Autosize:=False;
AutoStretch:=True;
WrapText:=True;設置這些屬性只對英文字有效﹐如需對中文字有效可增加一個Memo控件﹐然后調用以下函數procedure lineBreakQRMemo(text: string; const textMemo: TMemo; const QRMemo: TQRMemo);
var
  i: integer;
begin
  textMemo.Width := QRMemo.Width;
  textMemo.Height := QRMemo.Height;
  textMemo.Font.Name := QRMemo.Font.Name;
  textMemo.Font.Size := QRMemo.Font.Size;
  textMemo.Text := text;
  QRMemo.Lines.Clear;
  for i := 0 to textMemo.Lines.Count - 1 do
    QRMemo.Lines.Add(textMemo.Lines.Strings[i]);
end;