Bonjour
Je découvre TMS Chart et bien qu'ayant lu la doc, je ne parviens pas à récupérer l'index de X au passage de la souris sur une verticale.
Un morceau de code permet de récupérer les valeur du point.
Il y a une propriété SingleXValue que je pense être celle que je recherche mais après avoir modifié le code avec cette propriété cela me retourne systématiquement 0 !
J ai donc besoin de votre aide.
D avance merci.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 procedure TForm2.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var i: Integer; cp: TchartPOint; s: string; begin with Chart1.Panes[1] do begin s := ''; for i := 0 to series.Count - 1 do begin cp := GetChartPointAtCrossHair(i); if s = '' then begin s := floattostr(cp.SingleXValue); end else begin s := s + ':' + floattostr(cp.SingleXValue); end; end; Label1.Caption := s; end; end;
Partager