Question

Delphi PageContrl 页签改变字的方向

将PageContrl的TabPosition属性设置为tpLeft后，页签显示在左边，但是字的方向是不对，怎样进行修改呢？修改后的样子见图片。

Answer 1

PageContrl的OwnerDraw设为True,增加事件DrawTab
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
s:string;
i:integer;
begin
for i:=0 to 4 do
begin
s:= copy(PageControl1.Pages[TabIndex].Caption,i*2+1,2);
PageControl1.Canvas.TextOut(Rect.Left+5,Rect.Top +5 + i*12,s);
end;
end;