Cambiar la pestaña del PageControl

[[Bicho]]

Hola,

procedure Tform1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);

El último parámetro del procedimiento te indica si la pestaña a dibujar es la activa.

Probando con algo así me funciona (el efecto no es muy bueno a la vista pero sirve, habría que retocarlo)

Código Delphi [-]
procedure Tform1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  with PageControl1.canvas do begin
    fillrect(rect);
    brush.style := bsClear;
    if Active then font.Color := clRed
    else font.Color := clwhite;
    textout(rect.left+3,rect.top+3,PageControl1.Pages[TabIndex].Caption);
    if Active then font.Color := clGreen
    else font.Color := clBlack;
    textout(rect.left+2,rect.top+2,PageControl1.Pages[TabIndex].Caption);
  end;
end;

Saludos

P.d: y se me olvidaba, gracias por el apunte dec. tambien puedes usar el TabIndex para usar la pestaña que quieras