qrmemo中字段换行，特急！(50分)

C

crazyboy_52

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-24

• #1

我在制作报表时遇到如下问题：我用qrmemo1显示备注信息，信息过长时不能自动换行，
打印出来的信息仍为一行。将wordwrap设为true不行，输入界面上有一个dbmemo控件，
我用qrmemo1.lines:=dbmemo1.lines仍不行。请各位高手帮帮忙！

 

曾

曾经

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-24

• #2

用wordwrap属性设为ture

 

Y

yueer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-24

• #3

试试如下操作：
qrmemo1.autosize := false;
qrmemo1.autostretch := true;
qrmemo1.wordwrap := true;

 

C

crazyboy_52

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-24

• #4

to 曾经：dbmemo1的wordwrap可以实现自动换行
qrmemo1是不可以实现的
to yueer：我用的仍是qrmemo1.lines:=dbmemo1.lines
设置qrmemo1.autosize := false;
qrmemo1.autostretch := true;
qrmemo1.wordwrap := true;可仍实现不了；
我是delphi初学者，各位高人能否介绍详细一点，本人将不胜感激！

 

Y

yueer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #5

我也发现这个问题了，是否可以用QRRichText来代替QRMemo呢？
QRRichText可以自动换行，它也有Lines属性。

 

D

dlc1977

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #6

把qrmemo1的wordwrap設為true

 

X

xusong168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-30

• #7

我也遇到过这个问题，我给你找找。

 

X

xusong168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-30

• #8

在1998年，我当时用的delphi4。不知道还有没有用了。

 

X

xusong168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-30

• #9

object QRBand2: TQRBand
BandType = rbDetail
object QRMemo1: TQRMemo
AlignToBand = True
AutoSize = False
AutoStretch = True
end
end

object ChildBand1: TQRChildBand
ParentBand = QRBand2
object QRMemo2: TQRMemo
AlignToBand = True
AutoSize = False
AutoStretch = True
WordWrap = True
end
end

procedure TFormPrint.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
QRMemo2.Width := QRBand2.Width - 5 ;
end;

如果我没记错的话，当时是因为QRRichText搞不定，才被迫用的QRMemo。

 

T

truecat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-30

• #10

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1271921
看看这个对你有没有帮助？
我利用这种方法实现自动换行了。

 

C

crazyboy_52

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-30

• #11

问题提出后，很多人都发表了很有用的看法，现在我的问题已经解决，但是由于本人积分有限，只能每人平分一点了，
不过我想大家来这里的目的不是为了挣分，能和大家交流一下才是我们的心愿，我的方法如下，
写出来和大家交流一下：
leng:=length(strzhanghao);
hang:=(leng div 50)+1 ;
QRLabel14.Caption:=zonge;
if leng>50 then
for i:=1 to hang do
begin
str1:=copy(strzhanghao,(I-1)*50+1,50);
str:=str+str1+#13;
end;
多谢大家的热心帮助！