有一个备注字段,内容很大,无法控制宽度,要求能够实现自动换行,自动调整行距怎么实现啊
如果qucikreport不能实现,请提供好的报表工具及下载网址,谢谢序号| 备注
————————————————————————————————————
1 |SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
|SSSSSSSSSSSSSSSSSSS
————————————————————————————————————
2 |BBBBBBBBBBBBBBBB
————————————————————————————————————
3 |SSSSSSSSSSSSDFDFDSFDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFDFSSSSSSSS
|FDFDFDGFGFGFDSGSERTRETRSETGREST
————————————————————————————————————
4 |BBBBBBBBBBBBBBBB
————————————————————————————————————
5 |AAAAAAAAAAAAA
如果qucikreport不能实现,请提供好的报表工具及下载网址,谢谢序号| 备注
————————————————————————————————————
1 |SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
|SSSSSSSSSSSSSSSSSSS
————————————————————————————————————
2 |BBBBBBBBBBBBBBBB
————————————————————————————————————
3 |SSSSSSSSSSSSDFDFDSFDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFDFSSSSSSSS
|FDFDFDGFGFGFDSGSERTRETRSETGREST
————————————————————————————————————
4 |BBBBBBBBBBBBBBBB
————————————————————————————————————
5 |AAAAAAAAAAAAA
解决方案 »
- delphi我有TEdit的HWND,我怎么转成TEdit呢?
- delphi 通过modem实现拨打固话,有Tapi相关的控件吗?
- 请问,怎样在ide里恢复隐藏的tabsheet。。
- 关于在两个程序之间传递数据,请帮忙看看,谢谢!
- 如何在报表中实现形如"第1/3页"的总页和分页的显示并可打印?
- 小妹想问如何程序启动时自动访问一个默认的文件
- 请问获得分辨率的函数是什麽?来者有分。等……
- 成绩列表,排序,统计的sql语句的写法???
- 为什么从数据库中取出WORD文件大小会改变?
- Delphi做数据库可以不用BDE吗?
- StrToFloat()把60.2插入到access97数据库,怎么成60.20000007629395????
- 急死我了,这行SQL语句错在那里呢?
或用qrrichedit
http://expert.csdn.net/Expert/topic/1314/1314396.xml?temp=.6958734
http://expert.csdn.net/Expert/topic/1351/1351063.xml?temp=.9529535
http://expert.csdn.net/Expert/topic/1265/1265250.xml?temp=.2919428
http://expert.csdn.net/Expert/topic/1302/1302834.xml?temp=.9411737
http://expert.csdn.net/Expert/topic/1282/1282681.xml?temp=.8808863不过,我自己试过TQRDBText(已经修改了里面QRCtrls单元中的AddWord过程)、QRmemo都不能解决自动换行的问题。
我自己的解决方法如下:
1.在需要显示换行的字段的地方用TQRMemo替代TQRDBText,并调整好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的宽度可以控制换行的长度。
autostrech:= true;
wordwrap:=true;
保证好用。