Hint von TabSheets/PageControls

[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}