Как Изменить Цвет В Компоненте Pagecontrol

[Sascha]

Для того, чтобы изменить цвет табов / кнопок необходимо:

добавить в Uses модуль Types
установить значение свойства OwnerDraw компонента PageControl в True
в обработчике событий OnDrawTab записать следующий код:

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var s: string;
x,y: integer;
begin
s := PageControl1.Pages[TabIndex].Caption;
with Control.Canvas do begin
Brush.Color:=clred; //нужный цвет
FillRect(Rect);
Font.Color := clBlack;
x := Types.CenterPoint(Rect).X - TextWidth(s)div 2;
y := Types.CenterPoint(Rect).Y - TextHeight(s) div 2;
TextOut(x,y,s);
end;
end;