Label的Caption如何换行！(50分)

流

流浪者_2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #1

我从Txt文本文件中读出一行，放入Label中，现在我想Label的Caption的每行显示40个字符，
应该如何写代码？？使Label的Caption能够自动换行！

 

流

流浪者_2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #2

有人愿意帮忙吗？

 

Z

zhoufujin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #3

label1.caption:='sdfsdf'#13'assdfsdf'#13'asdfsdf';

 

Y

ydejun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #4

autosize:=false
wordwrap:=true

 

流

流浪者_2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #5

ydejun的不行！

 

流

流浪者_2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #6

可能我没有说清楚吧
我从Txt文本文件中读出一行，放入Label中，现在我想Label的Caption的每行只显示40个字符，
多余的显示在下一行！依次类推，每行都只显示40个字符，在线等待！

 

Y

ydejun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #7

是可以的,
这里有一个问题,Delphi是按照单词进行换行的,比如:
caption:='This is a sample example',可以自动换行,但如果你把
中间的空格去掉,Delphi会认为那是一个单词,就不会换行.
因为delphi不会识别中文的词,所以不会将一串中文字符换行,除非
你用空格或标点将其分开.

 

I

Imfish

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #8

分给我,下面我最近用过,好好用呀
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=GetWindowLong(Button1.Handle, GWL_STYLE);
SetWindowLong(Button1.Handle, GWL_STYLE, i or BS_MULTILINE);
Button1.Caption := 'Line1' + #13#10 + 'Line2';


end;
分分)_______

 

Y

ydejun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #9

To:Imfish
楼主说的是Label,阁下还有高招吗?

 

I

Imfish

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #10

看错了,上面是在button.caption上面实现换行
我觉得可以借这种做法试一下呀

 

流

流浪者_2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #11

to Imfish，不好意思，可能你理解错了
我要的是Label的Caption换行！

 

流

流浪者_2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #12

问题是从文本中读出的字符我不知道有多少啊，Label的Caption的每行只显示40个字符，
多余的显示在下一行！依次类推！

 

Y

ydejun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #13

将读出的字符做一下处理,满40就在后面加上#13

 

流

流浪者_2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #14

举个最简单的例子，Form上面有一个Edit,一个Label,一个Button
如何将用户收入到Edit中的Text分配到Label的Caption中,Label的Caption每行
只显示40个字符，多余的显示在下一行！依次类推！

 

Y

ydejun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #15

my God!我觉得我说得够细了!
var s,s1:string;
i:integer;
begin
s:=edit1.text;
for i:=0 to length(s) div 40
begin
s1:=s1+copy(s,i*40+1,40)+#13;
end;
end;
代码可能有些小问题,但思路就是这样.

 

人

人在昆明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #16

你要动态的设。

 

D

dangbochang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #17

代码没问题， 我测试过了！·

 

流

流浪者_2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-06

• #18

多谢jdejun，分给你！也很谢谢其他给与帮助的朋友！