Hintergrundfarbe des TabControls

[Sharky]

Zitat von noch_ein_hannes:

....Das ist dann aber sehr umständlich, also das mit OwnerDraw := true vergesse ich schnell mal wieder ...

Warum den umständlich?
Das sollte den Text ausgeben:

Delphi-Quellcode:

procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl; 
  TabIndex: Integer; const Rect: TRect; Active: Boolean); 
begin 
  Control.Canvas.TextOut(rect.Left+2,Rect.Top+2,TabControl1.Tabs[TabIndex]); 
end;