样将PageControl的caption中文字竖立？

Question

将PageControl的TabSheet设置为left，怎样将其caption的中文字竖立起来。或哪里有达到这样效果的第三方控件？
   我看到金蝶的K3ERP主界面就是这样的效果。

Answer 1

我是这样做的，比如tabsheet.caption='商品管理'，只要在代码中如下写就可以了
 self.TabSheet1.Caption :='商'+#13+#10+'品'+#13+#10+'管'+#13+#10+'理';
不过是笨了些.

Answer 2

试试一面的代码
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var l_cap :String;
    l_rect:Trect;
begin
  if TabIndex=PageControl1.TabIndex then
  begin
    with PageControl1.Canvas do
    begin
      Font.Color := clBlue;
     Brush.Color := clInfoBk;
     FillRect(Rect);
    end;
  end;
  l_cap := PageControl1.Pages[tabindex].caption;
  l_Rect := Rect;
  DrawText(PageControl1.Canvas.Handle,Pchar(l_Cap),Length(l_cap),l_Rect, DT_CENTER or DT_VCENTER or DT_WORDBREAK);
end;