Color del Caption en un TabSheet

[*Caro*]

Empezado por JoseFco

Es cosa de ir jugando con los colores y las posiciones.

No te estoy entendiendo muy bien, que es lo que no te satisface, si quieres pintar cada caption de los tabSheet de diferente color, puedes utilizar el parametro TabIndex.

Código Delphi [-]
 ................
 Re := Rect;
 
 Case TabIndex of
  0 : PageControl1.Canvas.Font.Color := clRed;
  1 : PageControl1.Canvas.Font.Color := clYellow;
  2 : PageControl1.Canvas.Font.Color := clGreen;
  else
   PageControl1.Canvas.Font.Color := clBlack;
 end;
   
 DrawText(               
    PageControl1.Canvas.Handle, PChar(Titulo), Length(Titulo), Re,
    DT_CENTER or DT_VCENTER or DT_SINGLELINE);

Saluditos