Zitat von
Sharky:
Hai silbernes Mondmädchen.
Du könntest auch
OwnerDraw := True einstellung dann die Tabs selber zeichnen:
Delphi-Quellcode:
procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
Control.Canvas.Brush.Color := clGreen;
Control.Canvas.FillRect(Rect);
Control.Canvas.TextOut(rect.Left+2,Rect.Top+2,TabControl1.Tabs[TabIndex]);
end;
Ist eine einfache Moeglichkeit, wobei das optisch nicht schön aussieht.