[cray]

сабж относительно окна программы.

Пока мысли такие: создать глобальные переменные x и y, навесить на MouseMove процедуру, которая скидывает позицию курсора в эти переменные.

Существует цивильное решение? Неужели при MouseMove позиция курсора нужна, а при онклике нет.

[0nni]

Mouse.CorsorPos.x
Mouse.CorsorPos.y

[cray]

вот в данном случае мне нужно узнать координаты относительно паинт бокса. Как?

[0nni]

Код:

var cur : TPoint;
begin
cur := TControl(Sender).ScreenToClient(Mouse.CorsorPos);

[cray]

Отлично, работает