Как определить координаты мыши в delphi?

Question

[gleendo]

В общем мне нужно определять координаты мыши и записывать их в label.
В событие mouseMove записываю

Form1.label4.caption := 'X = ' + IntToStr(X) + ' : ' + 'Y = ' + IntToStr(Y);

Но ничего не происходит. Как поправить код, чтобы все работало?

Answer 1

[kalapanga]

А какая-нибудь панель или ещё что во всю форму не лежит? Ваша строчка будет работать только когда мышь непосредственно над "голой" формой ходит.

Comments

[gleendo]

У меня paintBox лежит над всей формой. А как определять тогда координаты?

[kalapanga]

con_: Делать всё тоже самое, только не у формы событие обрабатывать, а у PaintBox-а

Answer 2

[Равиль Зарипов]

Должно работать только в пределах формы!

Comments

[gleendo]

Ну это понятно, но ничего не выводит в label