label如何使文字竖排（默认为横排的）(50分)

我不知道该如何使它竖排。这样格式就不好看了！

label1.caption := 'a' + #13 + 'b';

恐怕只有采用： '我'+#13+'是'+#13+'中'+#13+'国'+#13+'人'

将WordWrap设为True,AuotSize设为False,
调整宽度,高度

bcb中的一段
void __fastcall TForm1::Button1Click(TObject *Sender)
{

Image1->Canvas->Font->Size = 20; //设置字体大小
Image1->Canvas->Font->Name = "Times Roman"; //设置字体
TLogFont lgfont;
GetObject(Image1->Canvas->Font->Handle, sizeof(LOGFONT), &lgfont);
lgfont.lfEscapement = 900;
lgfont.lfOrientation = 900;
lgfont.lfOutPrecision = OUT_TT_ONLY_PRECIS;
//根据 LOGFONT 数据结构中的设置创建逻辑字体
Image1->Canvas->Font->Handle = CreateFontIndirect(&lgfont);
SetGraphicsMode(Image1->Canvas->Handle, GM_ADVANCED);
Image1->Canvas->Brush->Style = bsSolid;
Image1->Canvas->Rectangle(Image1->Left,Image1->Top,Image1->Left+Image1->Width,Image1->Top+Image1->Height);
String text = "标题栏";
Image1->Canvas->TextOut(0,Form1->Height / 2 , text);

}

用第三方控件嘛

字体@宋体

jameschin的办法最好

用sundart,的方法

将WordWrap设为True,AuotSize设为False,调整宽度,高度
和
label1.caption := 'a' + #13 + 'b';
都很簡單而且都能夠達到你所要的結果!
提一把..

难道没有人用过
StaticText很好用的漂亮有个一竖起来
只要把他拉成竖长条，字就会自动竖起来；

多人接受答案了。

to yangyugw:statictext没有你说的那样啊！