Im PageControl eigene Schrift/Farbe für Tabs verwenden(Tipp drucken)

---

1. Setzen Sie die Eigenschaft OwnerDraw des PageControl auf True.
2. Im Ereignis OnDrawTab fügen Sie den folgenden Code ein.
3. Beachten Sie, das Ihre Ausgabe (z.B. bei Verwendung von fetter Schrift) auch auf den Tabulator passt!

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; 
                                     const Rect: TRect; Active: Boolean);
begin
  with Control.Canvas do
  begin
    if Active = true then
    begin
      Font.Color := clRed;
      Font.Style := [fsItalic];
    end
    else
    begin
      Font.Color := clBlack;
      Font.Style := [fsItalic];
    end;
    TextOut (Rect.Left + 4, Rect.Top + 4,
             PageControl1.Pages[TabIndex].Caption);
  end;
end;