TChart werte anzeigen

[BrunoT]

Hallo René,

ich weiss zwar nicht, welche Tchart-Version du hast, aber es sollte so gehn:

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].ValueMarkText[Chart1.Series[i].GetCursorValueIndex]);
end;

mfg

BrunoT