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

相关阅读 >>

Delphi在字符串中删除指定字符串

Delphi 文件,文件夹删除移动和拷贝

Delphi spcomm 调试串口解决总是在程序断开的时候才发送指令的问题

Delphi 设计一个有渐变色的标签

Delphi 修改webbrowser的内容

Delphi memo中禁止汉字

Delphi10.3通过json.serializers单元对大量数据序列化

md5.pas

Delphi hextoint

如何将string变量赋值给pchar变量

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...