Ayuda con PageControl y TabSheet

[rruffino]

Roman, era eso exactamente lo que buscaba, gracias!!!

[Migpal]

Pense que era más dificil, Gracias ROMAN.

[Deiv]

Hola,

Empezado por Roman

Si pones la propiedad OwnerDraw del PageControl en true y pones el siguiente código en su evento OnDrawTab:

Buscando en el Foro encontré este hilo, y hace tiempo me preguntaba con algo relacionado al tema:

¿Como cambiar el color predeterminado que tiene la propiedad HotTrack a un rojo por ejemplo?
Deiv

[Deiv]

Hola Yo de nuevo,
He buscado en la Red y he encontrado esta dirección:
http://delphi.about.com/cs/adptips20...ltip0800_2.htm
El código funciona bien para un CheckBox, Label, StaticText, pero no así en un TButton, TTabSheet, donde apunto mi pregunta, ¿Que implementación requiere dicho ejemplo para cambiar el color de la propiedad HotTrack en un TTabSheet?

Código Delphi [-]
procedure TForm1.WndProc(var Mesg : TMessage) ;
begin
{ Here we see which component gets changed. 
  This bit here tells us which
  component the mouse is over }
     if Mesg.LParam = Longint(Label1) then
        ChangeColor(Label1, Mesg.Msg) ;
     if Mesg.LParam = Longint(Label2) then
        ChangeColor(Label2, Mesg.Msg) ;
     if Mesg.LParam = Longint(Label3) then
        ChangeColor(Label3, Mesg.Msg) ;
     if Mesg.LParam = Longint(CheckBox1) then
        ChangeColor(CheckBox1, Mesg.Msg) ;
   inherited WndProc(Mesg) ;
end;
procedure TForm1.ChangeColor
   (Sender : TObject; Msg : Integer) ;
Begin
{ If a label is the one that the mouse
is over then we do this } 
  if Sender IS TLabel Then
   begin
     if (Msg = CM_MOUSELEAVE) then
      (Sender As TLabel).Font.Color:=clWindowText;
     if (Msg = CM_MOUSEENTER) then
      (Sender As TLabel).Font.Color:=clBlue;
   end;
{ If a CheckBox is the one ... } 
  if Sender IS TCheckBox Then
   begin
    if (Msg = CM_MOUSELEAVE) then
     (Sender As TCheckBox).Font.Color:=clWindowText ;
    if (Msg = CM_MOUSEENTER) then
     (Sender As TCheckBox).Font.Color:=clRed ;
   end;
end;

[Deiv]

He encontrado este otro consejo:

Empezado por Peter Below

If you want to change these you have to draw the tabs yourself. Set the page controls OwnerDraw property to true and handle the OnDrawTab event. To find out if the mouse over the tab you are drawing use GetCursorPos to get the current mouse position in screen coordinates, convert to the page controls client coordinates via its ScreenToClient method and do a PtinRect call with that position using the rect you get as parameter to the event handler.

Pero no se encararlo, ¿alguna idea?