![]() |
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;
|