[SOLVED] THintWindow and TAChart

[apeoperaio]

I am using a THintWindow to show a proper hint when moving on a point over a TAChart.
In order to show the hint I am using the OnHintPosition event of the TDataPointHintTool and it works properly.
But, what should I use to hide the hint? I would like to hide the hint as soon as the mouse is no more over a point (like the text hint provided by TAChart).
How can I do that? Any hint?
Thank you.

[arneolav]

Hi!
I'm using event "OnHint" and do not have this problem.
Add series like this:
ASeries.AddXY(myDateTime, MyValue, MyHintText, myColor);
In OnHint:
AHint:= TLineSeries(ATool.Series).Source.Item[ATool.PointIndex]^.Text;

[apeoperaio]

Do you use THintWindow or simple text hints?

[wp]

Since I don't know what you are doing exactly I cannot give specific help. However, maybe it helps when you study the attached demo in which the hint immediately disappears when the mouse is moved away from the data point.

[apeoperaio]

Your example works properly with hint provided by TAChart.
I would like to use a THintWindow instead (https://lazarus-ccr.sourceforge.io/docs/lcl/forms/thintwindow.html) since I would like to paint other controls on the hint, not only a text.
I attached a modified version of your project using THintWindow, it is showed in OnHintPosition event of TDataPointHintTool

You will see that the hint is shown when the mouse is over a point but it remains there when the mouse move away from the point.

[wp]

You can catch the OnAfterMouseMove event and check whether the Series property of the DatapointHintTool is nil. When this is true, the mouse is no longer over a datapoint, and you can destroy your HintWindow:

Code: Pascal  [Select][+][-]

1. procedure TForm1.ChartToolset1DataPointHintTool1AfterMouseMove(
2.   ATool: TChartTool; APoint: TPoint);
3. begin
4.   if TDatapointHintTool(ATool).Series = nil then
5.     FreeAndNil(_hint);
6. end;

[apeoperaio]

It works as expected.
Thank you!