Foros Club Delphi - Cambiar color de la pestaña de un PageControl

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Cambiar color de la pestaña de un PageControl (https://www.clubdelphi.com/foros/showthread.php?t=1973)

Cambiar color de la pestaña de un PageControl

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.

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!

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;

Código:

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