Hallo René,
Das mit dem Listenindex liegt an Deinem anderen Code. Ich habe das noch einmal unter D2005 getestet und noch mal abgeändert, da das falsche angezeigt wurde.
Delphi-Quellcode:
procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Var
i:Integer;
begin
chart1.ShowHint:=True;
For i:=0 To Chart1.SeriesCount-1 do
If Chart1.Series[i].GetCursorValueIndex >=0 Then
Chart1.Hint:=Chart1.Series[i].YValueToText(Chart1.Series[i].YValues[Chart1.Series[i].GetCursorValueIndex])
else
Chart1.Hint:='';
end;
@marabu:
warum verwendest du den Hint der Application? Bei ClickPart fällt ja die Schleife weg(kannte ich noch nicht)
