Вопрос по компоненту Chart (Delphi)

[Rhasta-Rhasta]

Здравствуйте.
Прошу подсказать, существует ли возможность средствами компонента Chart сделать так, чтобы при наведении курсора на построенную плоскую кривую вблизи курсора всплывало окно с некоторой информацией? Поясню: построен график параметрической функции x=x(t), y=y(t) и наличествует потребность в отображении значения t при наведении курсора на конкретную точку графика.
Спасибо.

[Stilet]

Да. Я давно когда-то делал показ подсказки при проведении мышки по линии графика.
по памяти что-то типа:

var vx,vy:integer;
begin
 with Series1 do begin
  GetCursorValues(vx,vy);
  if (vx<0) and (vy<0) then exit;
  Application.Hint:=format('%f - %f',[XScreenToValue[vx],YValueToText[vy]]);
  Application.ActivateHint(Mouse.CursorPos) ;
 end;
end;

В событии OnMouseMove;

[Rhasta-Rhasta]

Благодарю, в качестве основы то что надо.

[Rhasta-Rhasta]

Может кому будет интересно, вот что получилось: при наведении курсора на график функции ближайшая к нему точка отображается на графике и всплывает подсказка с некоторым комментарием.

var
MinRange,Range: extended;
vx,vy: double;
i: integer;
begin
  with Chart1 do
  begin
    Series1.Pointer.Visible:=true;  //Series1 будет содержать одну точку, ближайшую к курсору    
    if Series2.Active=true then //series2 содержит отрисованный график функции
    with Series2 do
    begin
      Series1.Clear;
      ShowHint:=false;
      GetCursorValues(vx,vy);
      MinRange:=sqrt(sqr(vx-XValue[0])+sqr(vy-YValue[0]));//задаём начальное минимальное расстояние между курсором и точкой графика
      for i:=1 to Count do
      begin
      	Range:=sqrt(sqr(vx-XValue[i])+sqr(vy-YValue[i]));//текущее расстояние между курсором и точкой на графике
        if Range<min(MaxXValue,MaxYValue)/10 then //если расстояние больше некоторой величины, подсказка не отображается и ближайшая к курсору точка не отрисовывается
        if Range<MinRange then
        begin
          MinRange:=Range;
          Series1.Clear;
          Series1.AddXY(XValue[i],YValue[i]);
          Hint:='MyHint';
          ShowHint:=true;
        end;
      end;
    end
    else ShowHint:=false;
  end;
end;

В событии OnMouseMove;
Попутно всплыл вопрос: почему при обращении к графику Form1.Series1 я могу вызвать опцию Pointer, а при обращении типа Form1.Chart1.Series[0] не могу?

[phomm]

Подозреваю, что Series1 на форме у Вас строго определённого типа, например TLineSeries у которого легко может быть "опция" (как Вы выразились, хотя устоявшийся термин этому - член {класса}) Pointer, а у обощённой коллекции серий, каждый элемент - базового типа (какой-нибудь TCustomSeries), у которого данного члена нет.
Выход - либо использовать то, как Вы сделали, но это придётся привязываться к конкретной серии, что будет неудобно при введении других чартов/серий с такой же логикой (дублировать код придётся), либо же сделать параметризацию (передавать серию сразу нужного типа в самописную процедурку, в которую вышеприведённый код оформить), либо написать каст (приведение типов):

if Form1.Chart1.Series[0] is TLineSeries then 
  TLineSeries(Form1.Chart1.Series[0]).Pointer.Visible := true;

[Rhasta-Rhasta]

Спасибо за пояснение