Moin Sharky,
ich hab' mal versucht ein Beispiel hinzubasteln.
Nicht schön, aber geht
Delphi-Quellcode:
procedure TfrmMAIN.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
const
_clTabColors : array [0..1] of TColor = (clRed,clBlue);
_sTabCaptions : array [0..1] of string = ('Blau','Rot');
begin
Control.Canvas.Brush.Color := _clTabColors[TabIndex];
Control.Canvas.FillRect(Rect);
Control.Canvas.TextOut(Rect.Left+5,Rect.Top+3,_sTabCaptions[TabIndex]);
end;
Nicht zu vergessen die Eigenschaft OwnerDraw des TPageControl's auf true zu setzen
Es ist übrigens korrekt, dass immer beide Tabs geschrieben werden, besser gesagt immer alle, da diese Routine für alle Tabs der Reihe nach aufgerufen wird.