Cambiar color de la pestaña de un PageControl

[acalderonr]

Hola amigos, quiero saber si alguno de ustedes conoce alguna forma de cambiar el color de la pestaña de un PageControl.

Me explico, tengo un Form con un PageControl y tres TabSheets, pero quisiera que la pestaña de cada uno tuviera un color diferente.

Alguien sabe si se podrá?

Mil gracias.

[[__hector]]

Con el control estandar que trae delphi no se puede, salvo que reimplementes algunos de sus metodos.

Pero si buscas en torry.net encuentras controles que si ofrecen esa funcionalidad. Suerte!

[Ruben_Cu]

Hola acalderonr, para lograr lo que quieres basta con que uses las propiedades y eventos del control revisa el hilo:
del foro viejo.
Como en ese ejemplo todas se pintan de un color la adecuación en tu caso sería algo así como;

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
        with PageControl1.Canvas do
        begin
        case TabIndex of
                0: Brush.Color:=clblue;
                1: Brush.Color:=clred;
                2: Brush.Color:=clyellow;
                end;
                FillRect(Rect);
        end;
end;

Espero que sea lo que andas buscando, saludos