hints en las solapas de un pageControl

[delphiana]

Hola!!
Si alguien me ayuda, por favor. Quisiera saber si alguno sabe como hacer que los hints de las páginas de un PageControl se muestren pasando el mouse por la solapa donde figura el caption de la página y no solamente cuando la página está activa.
GRACIAS!!
Saludos

[ecfisa]

Hola delphiana y vienvenida a Club Delphi

Como a todos los que se inician, te invitamos a que leas nuestra guía de estilo.

Código Delphi [-]
implementation

uses CommCtrl;

procedure TForm1.FormCreate(Sender: TObject);
begin
  PageControl1.ShowHint := True;
  ...
end;

procedure TForm1.PageControl1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  HI    : TTCHitTestInfo;
  Index : Integer;
begin
  HI.pt.x  := X;
  HI.pt.Y  := Y;
  HI.flags := 0;
  with Sender as TPageControl do
  begin
    Index := Perform(TCM_HITTEST, 0, Longint(@HI));
    Hint  := Pages[Index].Hint;
  end;
end;

Saludos.

[delphiana]

Muchas Gracias!! Fue de mucha utilidad tu sugerencia.
Saludos