Source position: actnlist.pas line 149
type THintEvent = procedure(
var HintStr: string;
var CanShow: Boolean
) of object;