hints en las solapas de un pageControl

[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