OwnerDraw en TPageControl

[salvica]

Haber si ahora podeis ayudarme

En el ejemplo que pone Román aquí me ocurre lo mismo, entonces he optado por meter algunos controles en una de las pestañas que debe estar oculta, (hasta ahora estaban vacías y pensaba que lo que estaba viendo era correcto).

Craso error , la variable TabIndex del procedimiento OnDrawTab del TPageControl recibe el número de órden de las pestañas visibles por lo que la línea

Código Delphi [-]
Texto := PageControl1.Pages[TabIndex].Caption

no se corresponde con la realidad

Ejemplo:

PageIndex   TabIndex   Caption
=========   ========   =======
    0           0      Inicio
    1          -1      Uno
    2          -1      Dos
    3           1      Tres

Pintaría la pestaña cero (PageIndex = 0) con Caption = Inicio
no pintaría pas pestañas uno y dos (TabIndex = -1), o sea TabVisible = false
Al pintar la pestaña tres (TabIndex = 1) PageControl1.Pages[TabIndex].Caption = Uno

¿Como puedo resolver el problema? (Saber el PageIndex de la pestaña a dibujar)

Gracias
Salvica