This example requires a TApplicationEvents and a TListBox on the form. Select the TApplicationEvents, double-click the OnHint event and the OnShowHint event and add the following code to the handlers. OnHint is triggered when the mouse passes over the control. OnShowHint is triggered when the mouse passes over the control and the application is about to display the hint window for a Help Hint.
procedure TMainForm.ApplicationEventsHint(Sender: TObject); begin lbOther.Items.Add('Event OnHint'); end; procedure TMainForm.ApplicationEventsShowHint(var HintStr: String; var CanShow: Boolean; var HintInfo: THintInfo); begin lbOther.Items.Add('Event OnShowHint'); end;