大麻烦!Delphi 7 如何显示竖排文字?

Question

如题:
忽然发现Label没有竖排的功能啊...
就像Word的竖排文本框那样!!

Answer 1

用代码控制吧,加换行Label1.Caption := 'a'+#13+'b';

Answer 2

label开wordwrap，caption照常设置，注意宽度设置为一个字的宽度，高度要留够

Answer 3

Label1.AutoSize:=True;可以了，宽度与高度自动调整的。

Answer 4

前面加@的字体啊..打出来的依然是横排,但是字就逆时针转了90°
我要的是字竖着下,但不转,我不是要打印啊WordTrap啊..对汉字还好,但一打数字就不行鸟..看来只有加回车,但我的是动态显示的,不是常量,不知怎么在每个字后加回车..我其实是要让它竖着显示当天日期,如
"
2
0
0
9
年
0
6
月
2
3
日
"

Answer 5

用 WideString，很好处理的
function AddReturn(S: WideString): WideString;
var
  i: integer;
begin
  for i := Length(S) downto 2 do
  begin
    Insert(#13, S, i);
  end;
  Result := S;
end;