delphi 将Label的Caption内容竖向显示

一直以为Label控件的caption内容不能够竖向显示，当用有此要求时，往往采用了其它控件实现，但它是能够做到的，方法：

1.在属性编辑器中，点击caption后面的小按钮，会弹出一个caption编辑器（若没有小按钮，请换成delphi2007试下）。

2.将内容按每行一个字的方式进行输入即可。在每一行结尾请敲打键盘上的Enter键进入到下一行。

3.点击保存即可实现。

实现的原理：

1.通过caption编辑器输入的内容，其实是将你的汉字转化为unicode字符进入存储并自动合并了所有的字符形成一个unicode字符串再赋予给了caption的。

2.请注意delphi的TCaption是这样定义的： TCaption = Type string;所以，如果你真的在编辑器中输入了一个unicode字符（非GB2312），那么，很可能输入的字符在caption中无效。

如果搞清了原理，那么你很容易明白：

 1.在设计时，为啥直接往caption中输入内容达不到竖向显示的效果。

 2.在运行时，如何动态达到效果(或在delphi7中如何做到)：

   label1.caption := #25105+#13#10+#33258+#13#10+#20449

来源：http://blog.csdn.net/chinmusam/article/details/8817354