TChart: выделение координат точки на осях

[Punk_Joker]

Имеется график:


Необходимо реализовать что-то типа этого:


Как можно добиться этого? Уже несколько часов немогу с этим разобраться.

[Аватар]

Примерно в таком направлении

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  {x от -5 до 5 c шагом 0.1;  y=x^2}
  for i:=-50 to 50 do Chart1.Series[0].AddXY(i/10,i*i/100,'',RGB(0,0,255));
end;

procedure TForm1.Chart1BeforeDrawSeries(Sender: TObject);
var i,xLeft,xTop: Integer;
begin
  {для x=2}
  for i:=0 to Chart1.Series[0].Count-1 do
    if Chart1.Series[0].XValue[i]=2 then begin
      Chart1.Canvas.Pen.Color:=clBlack;
      xLeft:=Chart1.Series[0].CalcXPos(i);
      xTop:=Chart1.Series[0].CalcYPos(i);
      Chart1.Canvas.MoveTo(xLeft,Chart1.ChartRect.Bottom);
      Chart1.Canvas.LineTo(xLeft,xTop);
      Chart1.Canvas.LineTo(Chart1.ChartRect.Left,xTop);
      Exit;
    end
end;

[raxp]

...вы хотите две направляющие с осей на вашу точку? Типа такого?

http://www.youtube.com/watch?v=Y2l67-52J-Q

Просто добавьте еще две серии на чарт, для вертикала и горизонтала по известным координатам [X,Y] вашей точки:

 for i:= 0 to Y do
   ch.Series[1].Addxy(x, i); // верт

 for i:= 0 to X do
   ch.Series[2].Addxy(i, y); // гориз

Или просто отрисовуйте сами на канвасе чарта по OnAfterDraw().

[Punk_Joker]

А каким образом добавить подписи на осях?

[raxp]

...вы про какие подписи? Title?

[Punk_Joker]

Подписи на координатных осях. Мне необходимо дополнительно выделить на них координаты нужной точки. Примерно как на втором скрине а первом моем посте

[Аватар]

Если на канвас рисовали, что мешает там же надпись пристроить Canvas.TexOut

[Punk_Joker]

Сообщение от Аватар

Если на канвас рисовали, что мешает там же надпись пристроить Canvas.TexOut

На обычном TChart'е.

[raxp]

...у чарта есть канвас, отрисовуйте по событию onafterdraw(), как сказал в посту #3.

Пример:

http://www.youtube.com/watch?v=0H-l-fb88s4