TPageControl控件问题！！！

[xwhope]

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

[xwhope]

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

[senfore]

Raize的TRzPagecontrol可以实现

[ly_liuyang]

呵呵,自己去Draw，什么样都不是问题

property OwnerDraw must be set to true

procedure 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

[hjf8086]

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