Color von Tabs, TabsFelder und Border in PageControl

[stahli]

Schau mal, ob es so etwas wie OnDrawTab gibt:

Delphi-Quellcode:

procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl; 
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  with Control do
  begin
    if ... then
      Canvas.Font.Color := clWindowText
    else
      Canvas.Font.Color := clGrayText;
    if ... then
      Canvas.Font.Style := [fsUnderline]
    else
      Canvas.Font.Style := [];
    if ... then
      Canvas.Font.Style := Canvas.Font.Style + [fsStrikeOut];
    Canvas.TextOut(rect.Left + 2, Rect.Top + 2, TabControl1.Tabs[TabIndex]);
  end;
end;