|
|
Previous Top |
| FormHints component.
|
| type
|
| TOnShowHint = procedure(Sender: TObject; HintControl: TControl; Hint: String; var AllowShowHint, ShowStandardHint: Boolean) of object;
|
|
|
| property OnShowHint: TOnShowHint;
|
| The OnShowHint event occurs when application is about to show the hint. You can write this event handler if you would like to disallow hints for some controls at run-time (see AllowShowHint parameter). The control for which we should display the hint passed with HintControl parameter.
|
|
|
| new! Now you can select the style of hint dynamically using ShowStandardHint parameter. Following example demonstrates how to select cartoon-style hints only for TImages and standard style for other controls.
|
| procedure TForm1.acFormHints1ShowHint(Sender: TObject;
|
| HintControl: TControl; Hint: String; var AllowShowHint,
|
| ShowStandardHint: Boolean);
|
| begin
|
| ShowStandardHint := not (HintControl is TImage);
|
| end;
|