标签: delphi delphi-7 cursor-position
我需要在表单上获取光标位置,我该怎么做?
答案 0 :(得分:16)
将Mouse.CursorPos传递给TForm.ScreenToClient()。
Mouse.CursorPos
TForm.ScreenToClient()
Mouse.CursorPos。 TForm.ScreenToClient()将点转换为表单的客户端坐标系。
事实上,所有TControl后代都提供ScreenToClient()方法及其反向ClientToScreen(),以便在坐标系之间进行转换。
ScreenToClient()
ClientToScreen()