Source position: forms.pp line 1165
type TShowHintEvent = procedure(
var HintStr: string;
var CanShow: Boolean;
var HintInfo: THintInfo
) of object;