Danke!
Ich habe zu früh gepostet, hätte selbst weitersuchen sollen.
Und hier die Lösung für alle, die hoffnungsvoll auf die Thread geklickt haben:
Es gewinnt das Event OnDrawTab.
Die Beschwoerungsformel lautet:
Delphi-Quellcode:
procedure TForm_Optionen.myPageControlDrawTab(
Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect;
Active: Boolean);
begin
if (Control is TPageControl) then
begin
with Control.Canvas do
begin
Brush.Color := $006ABEDF; //$007ED5FE; //clLime;
Font.Color := clBlack;
// Font.Style := [fsBold];
FillRect(rect);
TextOut(Rect.Left + 2, Rect.Top+2, TPageControl(Control).Pages[TabIndex].Caption);
end;
end;
end;