TPageControl控件问题！！！

Question

PageControl1.TabPosition:=tpLeft;时TabSheet1的Caption文字是竖着排的，如何让文字横着排呢？
谢谢！！！

Answer 1

TabSheet1.Caption:='T'+#13+'a'+#13+...;

Answer 2

谢谢hjf8086(hjf)兄，
不过我是要　　让文字水平横排　前提是PageControl1.TabPosition:=tpLeft

Answer 3

呵呵,自己去Draw，什么样都不是问题property OwnerDraw must be set to trueprocedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var ARect : TRect;
begin
  ARect := Rect;
  //clear complete
  control.Canvas.brush.Color := clBtnFace;
  control.Canvas.FillRect(ARect);
  InflateRect(ARect,-2,-2);
  //decide the color
  if active then
    control.Canvas.brush.Color := clRed
  else
    control.Canvas.brush.Color := clBtnFace;
  //paint the tab
  control.Canvas.FillRect(ARect);
这里，你喜欢什么样都可以实现的
  Control.Canvas.TextOut(ARect.Left+2,ARect.top+2,
                         TPageControl(Control).Pages[TabIndex].Caption);
end;http://lysoft.7u7.net