Discussion :

[Mloody2000]

Je cherche la propriete qui permettrait, lorsque l'on passe avec la soursi sur un chart standard, de fixer le curseur sur la courbe afficher et surtout d'afficher les valeurs x,y (un peu comme sur les graphs boursiers).

[Cl@udius]

Salut

Quelque chose comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.DBChart1Move(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
  tmp: Integer;
begin
  with Series1 do
  begin
    tmp := GetCursorValueIndex;
    if tmp = -1 then
      lblMontant.Caption := ''
    else
      lblMontant.Caption := 'Montant: ' + FormatCurr(',#0.00 €', YValue[tmp]);
  end;
end;

@+ Claudius

[banban54]

ou aussi pour XY:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure TForm1.DBChart1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
PosX, PosY  : double;
begin
  with Series1 do getcursorvalues(PosX, PosY);
  lblMachin.Caption := 'PosX: ' + FloattoStr(PosX) +  ' / '  + 'PosY: ' + FloattoStr(PosY);
end;

Au fait: le post 'Composant Charts 3D Freeware' est il clos?

à+

[Mloody2000]

Pas loin de ca, mais ce qu'il me faudrait c'est une fonction qui serait integree dans le graph. Regarde par exemple celui la:

http://www.boursorama.com/graphiques...symbole=1rPCAC

Quand tu bouge la souris, il t'affiche ta positions x, et la positions correspondante y.

[Mloody2000]

L'autre post n'est pas encore clos.

J'ai trouve 1 composant qui me va pas trop mal, mais peut-etre que quelqu'un en aura des meilleurs.

[Mloody2000]

Je suis toujours sur mon probleme.

Maintenant, j'aimerais que des que le curseur se retrouve sur le graphique, qu'il soit place directement sur la courbe (il y a une seule par graph). Donc, je lis la position x du curseur, mais je ne sais pas quelle fonction definit la position du curseur. Des idees ?