TAppEventsOnHint (Delphi)

From RAD Studio Code Examples
Jump to: navigation, search

Description

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.

Code

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;

Uses