Mal wieder TChart - Index des angeklicken Punktes ermitteln

[wp_xxyyzz]

Lt. D7-Online-Hilfe zur Methode Clicked von TCustomSeries: "Angeklickt bedeutet, daß sich die X- und Y-Koordinaten innerhalb der Bildschirmregiongrenzen der Punkte befinden." Daraus folgt, dass du die Punkte größer machen musst, wenn die Empfindlichkeit nicht passt. Generell erscheint mir das Treffen auch kleiner Punkte leichter zu sein, wenn man eine visuelle Unterstützung durch einen anderen Mauscursor erhält. Dazu wäre z.B. folgender Code im OnMouseMove-Event für TChart geeignet:

Delphi-Quellcode:

procedure TForm1.ChartMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var
  cp : TChartClickedPart;
begin
  Chart.CalcClickedPart(point(X,Y), cp);
  if (cp.Part in [cpLegend, cpAxis, cpTitle, cpFoot, cpSeries])
    then Screen.Cursor := crHandPoint
    else Screen.Cursor := crDefault;
end;