TdxOnGetScreenTip = procedure(Sender: TObject; var AScreenTip: TdxScreenTip) of object;