怎样使一个Label变成两行啊

Question

怎样使一个Label变成两行啊

Answer 1

function Tfirstmbfrm.convertstring(source:string):string;
  var
 i,j:integer;
  a,b:array[0..50] of char;
   begin
  StrPCopy(a, source) ;
   j:=0; i:=0;
  while (a[j]<>#0) do
  begin
  b[i]:=a[j];
if (j mod 2=1)and(j>0) then
     begin
      Inc(i);
      b[i]:=#13;
      inc(i);
      b[i]:=#10
     end;
     Inc(j);
     Inc(i);
  end;
   b[i-1]:=#0;
 result:= strpas(b);
 end;参考这个

Answer 2

label1.caption:='123'#13+'456'#13+'789'

Answer 3

将你的字符串后面加#13就可以了，
如：label1.caption:=字符串#13+字符串#13+.....
可以分成很多行,试试看,一定行!

Answer 4

设定label的autosize:=False,wordwrap:=True;
然后用空格分隔想换行的地方

Answer 5

最好的办法是用两个Lable,我也遇到很多这样的问题

Answer 6

在Caption里加一个#13就会多一行。想要几行有几行。

Answer 7

自己重写一个，加TStrings，想要多少行就有多少行，哈哈！

Answer 8

1.在TForm上按右健，在弹出的菜单上选择view as Text
2.找到其中的Label的Caption，在其中插入#13
例如原来是Caption='label'，那你可改为Caption='lab'+#13+'el';
3.右键后选择view as Form即可