在Delphi6中使用报表,我想使用在报表中显示备注型字段,既定义该控件的长度后,然后文本能够自动换行,怎么办?

解决方案 »

  1.   

    1.在需要显示换行的字段的地方用TQRMemo,并调整好TQRMemo的长度和宽度(显示字段的最大范围,你想要的方式);
    2.在报表所在的Form上放一个TMemo控件,由它来负责解决换行问题,在TQRMemo所在的band的BeforePrint事件中写代码,具体如下
    var
      i: integer;
    begin
      memo1.lines.clear;
      TQRMemo.lines.clear;
      memo1.width:= TQRMemo.Width;
     memo1.lines.text:= ADODataSet1.FieldByName('字段名').AsString;
      for i:= 0 to memo1.lines.Count - 1 do
        QRMemo.lines.Add(memo1.lines.strings[i]);
    end;
    只要在需要的地方依上面的方法处理就行。
    其中的memo1的宽度可以控制换行的长度。
      

  2.   

    Delphi自带标准控件,在standard页.