Cambiar estilo de Tabsheet

[*Caro*]

Empezado por roman

¿A qué te refieres con esto Caro? Aquí tengo un ejemplo muy parecido al tuyo y no noto nada raro.

Hola amiguito muchísimas gracias por responder, estaba segura que un día me responderías sobre la pregunta que hice en este hilo .

Ahora te explico, mi problema esta en que no solo quiero pintar el Tab quiero que se pinte todo el TabSheet cuando este activo, lo que se me ha ocurrido primero es poner un Panel del color que he pintado el Tab pero no se veía muy bien. Con esta línea de codigo:

Código Delphi [-]
 PageControl1.Pages[TabIndex].Brush.Color:=Control.Canvas.Brush.Color;

El TabSheet toma como color de fondo el color del Tab y se ve mejor que con un Panel. Mi problema esta ahí, cuando se ejecuta la primera vez siguiendo el ejemplo de arriba esta pintado con el color amarillo bajito cuando debería estar con el color amarillo fuerte ya que esta activo, pero cuando activas otro Tab no hay problema te lo pinta bien.

Saluditos