Delphy 7 Вопрос по картинкам

[Intripio]

Доброе время суток!
Есть график зависимости x(y). График представляет собой просто картинку (.jpg). Саму картинку я вставил в форму через Image.
Вопрос:
Как сделать так, чтобы пользователь, тыкая в определенную часть кривой графика, получал значения по оси X ?
пример графика во вложении... Спасибо всем за ранее....

[Serge_Bliznykov]

ха.. а если он мимо графика ткнул?

а вообще, по "тыкании" - на Image на событие OnMouseDown примерно такой код поместите:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
      Form1.Caption := 'X='+IntToStr(X)+' Y='+IntToStr(Y) ;
end;

ну а дальше по полученным координатам X и Y - вычисляйте значение нужной функции в нужной точке..

[Intripio]

Сообщение от Serge_Bliznykov

ха.. а если он мимо графика ткнул?

а вообще, по "тыкании" - на Image на событие OnMouseDown примерно такой код поместите:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
      Form1.Caption := 'X='+IntToStr(X)+' Y='+IntToStr(Y) ;
end;

ну а дальше по полученным координатам X и Y - вычисляйте значение нужной функции в нужной точке..

Спасибо! Тогда еще такой вопрос:
Можно ли сделать так, чтобы пользователь при НАВЕДЕНИИ на саму кривую графика видел точку куда он нажимает? Скажем пускай эта точка на графике будет красным цветом...Спасибо еще раз!

[Крот]

Можно ли сделать так, чтобы пользователь при НАВЕДЕНИИ на саму кривую графика видел точку куда он нажимает? Скажем пускай эта точка на графике будет красным цветом...

Можно на форму положить компонент TShape. Ширину и высоту сделать маленькими а форму - в виде круга. И когда нажал мышкой то перемещать его.

[Intripio]

Сообщение от Крот

Можно на форму положить компонент TShape. Ширину и высоту сделать маленькими а форму - в виде круга. И когда нажал мышкой то перемещать его.

А можно на примере каком нибудь банальном объяснить. Спасибо!

[Крот]

Посмотрите в архиве. Там вместе с .exe файлом.

[Intripio]

Сообщение от Крот

Посмотрите в архиве. Там вместе с .exe файлом.

Спасибо огромное!! Очень помогли!!