Hint von TabSheets/PageControls

[MARGERSCH]

Ich möchte in einem PageControl die zu den einzelnen Tab-Reitern
gehörigen Hints anzeigen, wenn die Maus über den entsprechenden
Reiter fährt. Der Hint eines TabSheets erscheint nur auf der zugehörigen
Fläche. Ich kann tatsächlich einen Hint anzeigen, indem ich
den Hint des PageControls setze. Dieses reagiert jedoch nicht auf
Mausbewegungen. Es zeigt immer denselben Hint an.
Eine andere Möglichkeit wäre eine Änderung des Hints beim Ereignis
OnMouseMove. Dazu müsste ich aber die (X,Y)-Position des Reiters wissen.
Die habe ich nicht. Weiß jemand Rat ?

[Sailor]

Delphi-Quellcode:

  PROCEDURE Form.PageControlMouseMove(sender:TObject; shift:TShiftState; x:Integer; y:Integer);
   VAR
    tab_ind: Integer;

   BEGIN
    WITH PageControl
     DO BEGIN
         tab_ind := IndexOfTabAt(x,y);
         IF tab_ind <> Undefined
          THEN BEGIN
                Hint := Pages[tab_ind].Hint;
                ShowHint := True
               END
        END
   END; {OF PROCEDURE Form.PageControlMouseMove}

[MARGERSCH]

Funktioniert einwandfrei, danke.