各位达人：
在Delphi中Label控件怎么可以使它的文字竖排呢？回答的达人们会升职加薪滴～～

关注ing，Unicode我一直不不知道怎么处理

我自己来回答,我自己升职加薪！！
最笨的方法：
Label1.Caption='a'+#13+'b';

........这样无法加薪的，如果你的label有1000个字符怎么办啊。

　网络有段这样的代码，但是中英混合字符的时候有问题。　
const poemary: array[0..6] of string = ('aaaa游子吟', '慈母手中线', '游子身上衣', '临行密密缝', '意恐迟迟归', '谁言寸草心', '报得叁春晖');

function 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;
end;
Inc(j); Inc(i);
end;
b[i-1]:=#0;
result:= strpas(b);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
labary:array[0..6] of Tlabel;
i:integer;
begin
for i:=0 to 6 do
begin
labary[i]:=Tlabel.Create(self);
labary[i].parent:=self;
labary[i].caption:=convertstring(poemary[i]);
labary[i].top:=(form1.Height-labary[i].height) div 2;
labary[i].left:=10+i*33;
end;
end;

[此贴子已经被作者于2007-5-17 18:48:29编辑过]

竖排，用rx控件

盱眙版主，rx控件是什么东东？
追问一句：我在Button控件中也想实现刚才那个想法，但是用同样的代码'a'+#13+'b'却不可以实现
另外？～～
Button控件可不可以实现控件颜色本身的背景色发生变化

一套第三方的控件rxlib
baidu一下就知道了。