TabSheet

[roman]

Empezado por REHome

Download Wesker Report II v2.0 http://usuarios.lycos.es/reh2

Vaya, ahora entiendo el porque de tal combinación de colores.

Para lo que necesitas debes dibujar tú mismo las pestañas. Pon la propiedad OwnerDraw del PageControl en true y en el evento OnDrawTab pon algo parecido a esto:

Código Delphi [-]
var
  R: TRect;
  Texto: String;

begin
  Control.Canvas.Brush.Color := clBlack;
  Control.Canvas.Font.Color := clRed;

  Texto := PageControl1.Pages[TabIndex].Caption;

  R := Rect;
  Control.Canvas.FillRect(R);

  if not Active then
    InflateRect(R, 0, -3);

  DrawText(Control.Canvas.Handle, PChar(Texto), -1, R, DT_SINGLELINE or DT_CENTER or DT_VCENTER);
end;

Aún así te queda un pequeño borde gris alrededor de la ficha pero prueba a ver si te sirve.

// Saludos