label怎样实现随里面的内容而自动换行？

label怎么样实现随里面的内容而自动换行？我把它的autosize设为false,wordwrap
设为True居然不能换行？奇怪！

解决方案 »

  1.   

    你要在换行的位置加上空格，例如
    label1.caption:='asdaf asdadwerqe q3ere';
      

  2.   

    给你写一个！
    procedure TForm1.FormCreate(Sender: TObject);
    var
      a,b :string;
      i:integer;
    begin
    i:=length(label1.Caption);
    a:=copy(label1.Caption,0,10);
    b:=copy(label1.Caption,10,i);
    if i>10 then
       showmessage(inttostr(i));
       label1.Caption :=a+#13+b;
    end;
      

  3.   

    能不能像VB的label一样自动的根据内容来换行的函数，当一行显示不下时会自动的转到下一行
    因为无论是加空格还是加#13都是要自己来设置断点，如果字体一改的话断点又经重新设置了。
      

  4.   

    label 的自动换行不会把一个词拆分成几个字母。它对于每个中文单字都作为一个词，而对于英文、数字，则必须有空格来分隔每一个词