Tchart y cálculo de valores en coordenadas del ratón (mouse)

[rounin]

Eso es mi archivo, un parte de libreria de algoritmos genericos.

[fonx]

Esto funciona Rounin, eres un crack! , solo me queda configurarlo para que me muestre las coordenadas de las gráficas que tengo pintadas y poco más.

Muchas gracias por la ayuda, este post puede ayudar a mucha gente que quiere hacer algo similar con el TChart.

[Angel Fernández]

Reflotando este hilo de hace ya casi 9 meses, me gustaría preguntar al foro si se puede saber qué serie es la que está siendo apuntada por el ratón en ese momento.

Esto que pregunto es útil cuando se representan muchas series en un gráfico de líneas, por ejemplo 20 ó 30 y aún con los colores no son suficiente para distinguir tantas líneas. Entonces, tú pones el ratón encima de una serie y en el hint o en un label, te dice qué serie es esa. Lo que hace Excel con los gráficos, vamos.

Gracias de antemano.

Un saludo.

[*Caro*]

Hola Angel Fernandez, puedes utilizar la función Clicked de la serie, ejemplo, digamos que tenemos dos series (Series1, Series2) en un Chart.

Código Delphi [-]
procedure TForm1.Chart1ClickSeries(Sender: TCustomChart;
  Series: TChartSeries; ValueIndex: Integer; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if Series1.Clicked(x,y)<>-1 then
  showmessage('Serie 1');
 
 if Series2.Clicked(x,y)<>-1 then
  showmessage('Serie 2');
end;

Estoy utilizando el evento OnClickSeries, por lo que se va ejecutar cuando hagas click sobre alguna de las series, pero tu puedes utilizar otro evento como OnMouseMove...

Saluditos

[Angel Fernández]

Muchas gracias Caro, tu código me ha resuelto el problema.

Con tu permiso lo he depurado un poco. Muestra en un hint el título de la serie sobre la que hacer clic:

Colocar este código en el evento chart1.clickseries

Código Delphi [-]
  for i:=0 to dbChart1.SeriesList.Count do
  if dbChart1.Series[i].Clicked(x,y)<>-1 then
  begin
    txt:='Sensor '+dbChart1.SeriesList.Series[i].Title;
    Break;
  end;

  dbchart1.Hint:=txt;
  Application.HintPause:=1; //para que muestre enseguida el hint
  dbchart1.ShowHint:=True;
  Application.ActivateHint(Mouse.CursorPos); //muestra el hint

Un saludo.

[*Caro*]

No tienes que pedir permiso amiguito, me alegra que te haya servido .

Saluditos