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:
Código:
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