se puede cambiar el color de la pestaña del PageControl

[Patricio]

Hola foro, primero me gusta el nuevo diseño, y segundo alguien sabe si se puede cambiar el color de la pestaña del Pagecontrol
saludos

[manuelgomez]

Hola aqui te pego un codigo de un moderador es muy bueno

procedure TForm1A1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
R: TRect;
Texto: String;
begin
if Active then
begin
Control.Canvas.Font.Color := clRed;
Control.Canvas.Font.Style := [fsBold];
end;
Texto := PageControl1.Pages[TabIndex].Caption;
R := Rect;
Control.Canvas.FillRect(R);
if not Active then
InflateRect(R, 0, -3);
DrawText(
Control.Canvas.Handle, PChar(Texto), -1, R,
DT_SINGLELINE or DT_CENTER or DT_VCENTER);
end;

[Patricio]

Muchas gracias por tu respuesta, lo he pegado y no me modifico nada,
luego cambie la propiedad Owner Draw a false y se modifico de maravillas, eso esta bien o tendria que haber funcionado de una.
Saludos y de nuevo gracias