PageControl垂直标题

Question

我有一个PageControl，TabPosition设置为“tpLeft”。 您注意到当您设置该属性时，选项卡的标题也会变为垂直， 我希望这些字幕以正常的水平方式显示， 尝试更改TabHeight，但它只是更宽，测试仍然显示垂直。

我该如何解决这个问题。

使用DELPHI XE5

更新： 此代码有效（感谢'Ken White'）：

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  I: Integer;
  PageControl: TPageControl;
  TextFormat: TTextFormat;
  Text: string;
  TextRect: TRect;
begin
  PageControl := Control as TPageControl;

  Text := PageControl.Pages[TabIndex].Caption;

  for I := Length(Text) - 1 downto 1 do
  begin
    Text := Copy(Text, 1, I) + Copy(Text, I+1, MaxInt);
  end;

  TextRect := Rect;
  TextRect.Left := TextRect.Left + 5;
  TextRect.Top := TextRect.Top + 3;

  TextFormat := [tfCenter];

  PageControl.Canvas.TextRect(
    TextRect,
    Text,
    TextFormat
    );
end;

但这是“正确的方法”吗，还有其他更好的方法吗？