Pass Mouse.CursorPos
в TForm.ScreenToClient()
.
Mouse.CursorPos
возвращается в экранную систему координат.TForm.ScreenToClient()
преобразует точки в клиентскую систему координат формы.
Фактически все потомки TControl предлагают метод ScreenToClient()
и его обратный ClientToScreen()
для преобразования между системами координат.