在Label控件的Caption属性中输入的文字如何换行？

Question

在Label控件的Caption属性中输入的文字如何换行？比如:Caption='请您对您的言行负责，遵守中华人民共和国有关法律、法规,尊重网上道德'这句话如何换行，还请给出代码，谢谢！

Answer 1

Caption='请您对您的言行负责，遵守中华人民'+#13+'共和国有关法律、法规,尊重网上道德'

Answer 2

label1.Caption:='请您对您的言行负责，遵守中华人民'+#13+'共和国有关法律、法规,尊重网上道德';-------------------
赋值号是:=

Answer 3

Label.Caption='请您对您的言行负责，遵守中华人民'+#13#10+'共和国有关法律、法规,尊重网上道德'

Answer 4

Label.Caption='请您对您的言行负责，遵守中华人民'+#13#10+'共和国有关法律、法规,尊重网上道德'

Answer 5

Label.Caption='请您对您的言行负责，遵守中华人民'+#13#10+'共和国有关法律、法规,尊重网上道德'

Answer 6

TLable有个WordWrap属性，将它设为True，调整好Lable控件的大小，这样当文字到达边界后会自动折行显示。

Answer 7

呵呵，来晚了
同意cdsgajxlp(起名很难) ( ) 信的方法

Answer 8

以上的做法还是有不足的,如果一句话中间有全角和半角的字,那么就要对该字符串进行判断.以下是我所编写的.如有字符串S:='ＡabecdＢffbＣＤabcdａｂｃｄ'
var
  i,m: integer;  //m表示一行为多少字符就换行，如m=8，表示一行有7个或8个字符时就换行。
begin
  i:=1;
  m:=0;
  while i<Length(S) do
  begin
    if ord(S[i])>160 then
    begin
      Label1.Caption:=Label1.Caption+S[i]+S[i+1];
      Inc(i,2);
      Inc(m,2);
    end
    else
    begin
      Label1.Caption:=Label1.Caption+S[i];
      Inc(i);
      Inc(m,2);
    end;
    if m=8 then
    begin
      Label1.Caption:=Label1.Caption+#13#10;
      m:=0; 
    end;
  end;
end;

Answer 9

上面几位说的是在程序中动态给Label1赋值，在设计阶段如何实现方法
设计阶段，用鼠标右击form，在弹出的菜单中选择“View as Text”,找到你的label的名字，
大概如下：
  object Label1: TLabel
    Left = 500
    Top = 288
    Width = 32
    Height = 13
    Caption = 'Label1'
  end
再直接修改里面的 Caption 为
Caption='请您对您的言行负责，遵守中华人民'+#13#10+'共和国有关法律、法规,尊重网上道德'

Answer 10

我上面的程序有个地方写错了,是i<Length(S)+1,不是i<Length(S),抱歉.

Answer 11

在正式的解释中可以在字符串中插入#13#10来实现回车+换行，（也就是回车符和换行符的ASCII码）但是在Windows环境中可以只用一个#13来达到这样的效果。

Answer 12

先将AUTOSIZE设为FALSE在将WordWrap设为TRUE
把LABEL的大小设为合适的大小......
搞定

Answer 13

Label1.Caption := 'aaa' + #13 + 'bbb';