Tchart и Hint....

← →
BillyJeans © (2002-07-12 09:46) [0]

Господа програмеры подскажите, как в Hint запихать текущие координаты мыши относительно построенного графика (Chart)

← →
BAY © (2002-07-12 09:50) [1]

Проблема в получении координат мыши?

← →
BillyJeans © (2002-07-12 10:02) [2]

Координаты мыши конечно. Например курсор над центром координат, значит в Hint"е должно быть X:0 Y:0

← →
BAY © (2002-07-12 10:08) [3]

Это координаты мыши на экране:
mouse.CursorPos.X;
mouse.CursorPos.Y;
Дальше понятно?

← →
BillyJeans © (2002-07-12 10:11) [4]

А как динамически передавать их в Hint?

← →
BAY © (2002-07-12 10:11) [5]

Например в OnMouseMove

← →
BAY © (2002-07-12 10:12) [6]

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
hint := IntToStr (mouse.CursorPos.X)+" " +IntToStr(mouse.CursorPos.Y);
end;

Тут координаты миши на экране, но можно рассчитать относительно чего угодно.

← →
BAY © (2002-07-12 10:14) [7]

Хотя можно пользоваться X и Y, передаваемыми в OnMouseMove

← →
BillyJeans © (2002-07-12 10:20) [8]

ну это я понял! Главное, чтобы относительно начала координат графика было. И корректно работало если Zoom сделаю...

← →
BAY © (2002-07-12 10:33) [9]

Начало координат графика относительно формы или Chart-а вычислить же можно?

← →
BillyJeans © (2002-07-12 10:44) [10]

да, еще как сделать, чтобы Hint не осчезал со временем?

Application.ActivateHint(mouse.CursorPos);
Это в OnMouseMove

А как время задержки hint-а выставлять я не знаю

а вот
Application.ActivateHint(mouse.CursorPos);
очень даже помогло!

Помогите с определением координат мыши относительно центра координат графика...

Если проблема в определении координат начала координат относительно Chart-а, то это надо Zoom смотреть как устроен, а если нет, то:

xc,yc - те самые координаты начала координат относительно Chart-а (левого верхнего угла)
X,Y - координаты мыши на экране

(X-Form.x-xc, Y-Form.y-yc)

Tchart и Hint.... Найти похожие ветки