Cambiar la pestaña del PageControl

[dec]

Hola,

Cuestión de condiciones, ¿no? Puedes jugar con el "Caption" de la pestaña, o su "Index".

El caso es que al cabo quedaría en el evento "OnDrawTab" algo similar a lo siguiente:

Código Delphi [-]
begin
  if TabIndex = 0 then
  begin
    // Aquí pintamos la pestaña "0" de una forma...
  end;
  // Y aquí podríamos pintar el resto de otra forma...
end;