1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

//ownerdraw des pagecontrols auf true stellen
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  with control as TCustomTabControl do
    begin
      //hintergrund
      canvas.brush.color:=clBtnFace;
      canvas.fillrect(rect);
      //Text ausgeben
      if tabindex=0 then canvas.font.color := clred
                    else canvas.font.color := clgreen;
      if active then canvas.font.style:=[fsbold]
                else canvas.font.style:=[];
      canvas.textout(rect.left+10,rect.top+3,PageControl1.Pages[tabindex].Caption);
    end;
end;