Скачать: CL | DM;

Работа с Chart , можно ли вычислить значение   Найти похожие ветки 

← →
aha   (2004-02-29 15:26) [0]

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

---

← →
тихий вовочка ©   (2004-02-29 16:04) [1]

procedure TForm1.Chart1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

var p : TPoint;
a,b : real;
begin
GetCursorPos(p);
a:=Series1.XScreenToValue(X);
b:=Series1.YScreenToValue(Y);

ShowMessage(FloatToStr(a)+" "+FloatToStr(b));
end;

---

← →
aha   (2004-02-29 16:15) [2]

это же не совсем то .. мне то нужно щелкнуть предположим мышкой по любому месту по оси Х и чтобы по кривой можно было вычислить значение функции...

---

← →
тихий вовочка ©   (2004-02-29 18:29) [3]

Тогда попробуй
a:=Round(Series1.XScreenToValue(X));
ShowMessage(FloatToStr(Series1.YValues[a]));

---

← →
aha   (2004-02-29 19:35) [4]

.. спасибо , было бы хорошо , если тока у меня целые числа а , у меня они дробные .. другого варианта похоже нет ?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c