Color en las pestañas de un PageControl

[[Bicho]]

Empezado por kuan-yiu

Olvídate, el PageControl da problemas con el color, tiene un fallo en el borde y en las pestañas. Yo opté por ocultar las pestañas (se accede a cada sección usando botones) y cubrir los bordes con minipaneles (chapucero pero eficaz).

Hola, el PageControl, coge el color de su objeto parent de forma automática. Así pues, si le cambias el color al form o el Panel donde esté metido el PageControl, éste coge su mismo color. Lo que pasa, es que, de primera, las pestañas no cogerán ese color. Debes poner la propiedad OwnerDraw del PageControl a True y ya todo tendrá el mismo color.
Que ocurre ahora, que no se ven los captions de las pestañas, no? Muy fácil, dibujamos ese texto sobre el canvas del panel, de esta manera (sobre el evento DrawTab del PageCotrol):

Código Delphi [-]
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  with PageControl1.canvas do begin
    fillrect(rect);
    font.Color := clBlack; //con éste color ya se verá, ves jugando con el que te guste más
    textout(rect.left+2,rect.top+2,PageControl1.Pages[TabIndex].Caption);
  end;
end;

Espero te sirva.

Saludos