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

[*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