delphi - How to change hint text while hint is shown in TBalloonHint? -
before used thint, , working code: procedure tmainform.formcreate(sender: tobject); begin application.onshowhint := appshowhint; end; procedure tmainform.appshowhint(var hintstr: string; var canshow: boolean; var hintinfo: controls.thintinfo); begin hintinfo.reshowtimeout := 1; end; now use tballoonhint , want change hint text when hint shown. above procedure not triggered. i changing hint text each second, when user enters control, hint shown , want update hint text each second, when user not moving mouse. how achieve tballoonhint? tballoonhint not support functionality. following code (delphi xe3) adds it. cons: cpu load - every call tballoonhint.showhint creates new tcustomhintwindow flickering when redrawing type tmyhintwindow = class(thintwindow) public function calchintrect(maxwidth: integer; const ahint: string; adata: tcustomdata): trect; override; function shouldhidehint: boolean; override; end; var balloonhint: tball