Hola, crea un formulario con un pagecontrol con 3 pestañas y pega esto en el evento OnDrawTab del pagecontrol.
Código Delphi
[-]
PageControl1.Canvas.FillRect(rect);
if TabIndex = 0 then
begin
PageControl1.Canvas.font.Color := $0053A6AC;
PageControl1.Canvas.font.Style:=[];
PageControl1.Canvas.textout(rect.left+4,rect.top+4,PageControl1.Pages[0].Caption);
if Active then
begin
PageControl1.Canvas.font.Color := clPurple;
PageControl1.Canvas.font.Style:=[fsBold];
PageControl1.Canvas.textout(rect.left+5,rect.top+5,PageControl1.Pages[0].Caption);
end;
end;
if TabIndex = 1 then
begin
PageControl1.Canvas.font.Color := $0053A6AC;
PageControl1.Canvas.font.Style:=[];
PageControl1.Canvas.textout(rect.left+4,rect.top+4,PageControl1.Pages[1].Caption);
if Active then
begin
PageControl1.Canvas.font.Color := clPurple;;
PageControl1.Canvas.font.Style:=[fsBold];
PageControl1.Canvas.textout(rect.left+5,rect.top+5,PageControl1.Pages[1].Caption);
end;
end;
if TabIndex = 2 then
begin
PageControl1.Canvas.font.Color := $0053A6AC;
PageControl1.Canvas.font.Style:=[];
PageControl1.Canvas.textout(rect.left+4,rect.top+4,PageControl1.Pages[2].Caption);
if Active then
begin
PageControl1.Canvas.font.Color := clPurple;
PageControl1.Canvas.font.Style:=[fsBold];
PageControl1.Canvas.textout(rect.left+5,rect.top+5,PageControl1.Pages[2].Caption);
end;
end;
No olvides poner la propiedad ownerdraw a true.
El ejemplo como comprobaras le da un aspecto distinto al pagecontrol. Te pongo este ejemplo porque yo lo utilizo en mis aplicaciones y he copiado y pegado.
Un Saludo.