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 (http://www.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