对memo类型的字段,在使用quickreport报表时,如果用QRDBText控件来显示,显示的内容总是不能自动换行,已经将AutoStretch、wrap属性设为true.如果换成DBMemo控件,又会提示“系统句柄错误”!请问:在QuickReport中如何实现自动换行!
解决方案 »
- 在应用程序中使用clientdataset控件,发布时是否一定要分发midas.dll?
- “试图使用不正确的格式加载程序”是什么错误?
- 冰天雪地赤身裸体求一SQL语句的写法,应该是属于多表查询吧~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- 请教:怎样对动态生成的表设置主键?急,在线等!
- 网络数据库应用(高分100)
- quickreport的分欄打印
- AssignFile使用方法???
- 数据绑定问题
- 关于 SQL Server2000 中的 SELECT INTO 语句问题?
- 请问怎样用程序控制dbgrid不处于编辑状态?
- 怎样通过一个变量触发一个自己写的过程
- 怎么让全屏的游戏窗口化(比如MU)
以前的版本可以
QRDBText.AutoSize:=False;
QRDBText.AutoStrentch:=Treu;
QRDBText.WordWrap:=True;
var
iLen : integer;
strSource, strTemp : string;
begin
if Length(Value)<=TCustomControl(Sender).Width/7 then exit;
strSource:=Value;
Value:='';
while true do
begin
iLen:=1;
while iLen<TCustomControl(Sender).Width/7 do
begin
if ord(strSource[iLen])>126 then //這里的值在簡體下好像要改為其它的﹐不是很清楚(我在繁體下測試正常通過)
inc(iLen,2)
else
inc(iLen);
end;
dec(iLen);
if ord(strSource[iLen-1])>126 then
dec(iLen,2);
strTemp:=Copy(strSource,1,iLen); if Value='' then
Value:=Trim(strTemp)
else
begin
Value:=Trim(Value+#13+strTemp);
end;
Delete(strSource,1,iLen);
if Length(strSource)<=TCustomControl(Sender).Width/7 then
begin
Value:=Trim(Value+#13+strSource);
exit;
end;
end;
end;